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SEQ 0001 



IDENTIFICATION 



PRODUCT CODES 
PRODUCT NAME: 
PROGRAM DATE: 

MAINf AINERS 



MAINDEC-1 1-DZITA-D-D 

INTERPROCESSOR TEST PROGRAM (ITEP) 
JANUARY 1977 

DIAGNOSTICS 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 



DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1973, 1977 BY DIGITAL EQUIPMENT CORPORATION 
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1.0 ABSTRACT* 

THIS PROGRAM IS DESIGNED AS A MAINTENANCE AID FOR 

FIELD SERVICE PERSONEL* IT WILL VERIFY THE PROPER OPERATION 

OF A COMPLETE COMMUNICATION LINK FROM ONE PDP-11 

SYSTEM TO ANOTHER OR TO A COMMUNICATION TEST CENTER, 

2.0 REQUIREMENTS* 

2.1 EQUIPMENT 

A. PDP-11 SYSTEM WITH AT LEAST 4K OF CORE. 

2.2 STORAGE* 

4K OF CORE 

3,0 LOADING PROCEDURE 

THIS PROGRAM AND ALL OVERLAYS ARE ASSEMBLED IN ABSOLUTE FORMATS. 
THE ABS LOADER IS USED TO LOAD THE PROGRAM AND OVERLAYS e 

LOAD THE ITEP PROGRAM AND THE APPROPIATE OVERLAY FOR THE 
TYPE OF INTERFACE YOU WISH TO TEST. 

4,0 OPERATING PROCEDURES, 



IF RUNNING ITEP ON AN LSI-11 ENVIRONMENT S 

1. IF THE LINE CLOCK IS TO BE USED IT SHOULD 
BE ENABLED PRIOR TO PROGRAM EXECUTION. 

A, TWO METHODS OF ENTERING PARAMETERS ARE PROVIDED 

1. LOAD ADDRESS 200 AND START TO ENTER PARAMS FROM CONSOLE TTY, PROCEED TO SECTION B, 

2, LOAD ADDRESS 200 AND SET SWITCH REGISTER BIT 15 BEFORE 
STARTING TO ENTER PARAMS FROM CONSOLE SWITCHES, PROCEED TO SECTION C. 

♦THE PROGRAM MAY BE RESTARTED AT LOC 204 (ONCE PARAMETERS HAVE ALREADY BEEN SELECTED) 

B. CONSOLE DIALOGUE PARAMETER INPUT (CURRENT VALUES FOR PARAMETERS ARE FOUND IN OVERLAY) 

DN11 AND DM1 IBB PARAMETERS ARE DISCUSSED IN SECT, 10,0 OF THIS LISTING, 



1. THE PROGRAM WILL TYPEOUT THE NAME OF THE VARIABLE OVERLAY. 

A. IF YOU WISH TO SETUP JUST THE INDICATED OVERLAY, TYPE A CARAGE RETURN 

B. IF YOU WISH TO SETUP A DNU, TYPE IN DN . 

C. IF YOU WISH TO SETUP A DM1 IBB, TYPE IN DMB. 

IF DN OR DMB WAS TYPED IN STEP 1 ABOVE THEN THE BUS ADDRESS, 

VECTOR, ETC. REFERED TO IN STEPS 2 THRU 7, PERTAIN TO THE DNU OR DMBB. 

2. THE PROGRAM WILL TYPE THE DEFAULT BUS ADDRESS OF THE INTERFACE UNDER TEST. 

A. TYPE A CAR. RETURN TO USE DEFAULT BUS ADDRESS 

B, TYPEIN ACTUAL BUS ADDRESS 

3. THE PROGRAM WILL TYPE OUT THE DEFAULT VECTOR ADDRESS 
A. TYPE A CAR. RETURN TO USE DEFAULT ADDRESS 
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B. TYPEIN ACTUAL VECTOR ADDRESS 

4. THE PROGRAM WILL TYPE OUT THE DEFAULT INTERFACE PRIORITY 
NOTE: 200=PRI0 4, 240=PRIO 5# 300=PRIO 6# ETC. 

A. TYPE A CAR, RETURN TO USE DEFAULT VALUE 

B, TYPEIN ACTUAL VALUE 

5. THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAM8 1 

IF REQUIRED BY THE OVERLAY. (SEE SECT. 10.0 IN OVERLAY LISTING FOR PARAMETER DESCRIPTION) 

A. TYPE A CAR, RETURN TO USE DEFAULT VALUE 

B. TYPEIN ACTUAL VALUE 

6. THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE UF PARAM#2 
IF REQUIRED BY THE OVERLAY. 

A. TYPE A CAR, RETURN TO USE DEFAULT VALUE 

B, ENTER ACTUAL VALUE 

7. THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAM# 3 
IF REQUIRED BY THE OVERLAY, 

A. TYPE A CAR. RETURN TO USE DEFAULT VALUE 

THE DN-ii WILL USE PARAM #3 AS THE « TO DIAL. 
IF USING A MOD$M WITHOUT AUTOMATIC HANDSHAKING, 
THE NUMBER MUST TERMINATE WITH A 
"END-OF-NUMBER" CHARACTER (j). 

B, ENTER ACTUAL VALUE. 

8. THE PROGRAM WILL RETURN TO STEP Bl IF THIS SETUP 
WAS FOR DN11 OR DM! IBB. 

9. THE PROGRAM WILL REQUEST THAT SWITCH REGISTER BE SET, 

A, SETUP SWITCH REGISTER AS SPECIFIED IN STEP D. 
AND TYPE A CAR. RETURN. 
NOTES IF ANY OF THE ABOVE ITEMS 2 THRU 7 WERE CHANGED BY ENTERING 
NEW VALUES* THE NEW VALUE BECOMES THE DEFAULT VALUE FOR SUBSEQUENT 
RESTARTS OF THE PROGRAM. 
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C* MANUAL PARAMETER INPUT FROM SWITCH REGISTER 

1, THE PROGRAM HALTS FOR ISR( INTERFACE SERVICE ROUTINE) SPECIFICATION 
SWR14s| SETUP DM-11BB ISR 
SWRI3sl SETUP DN«°I I ISR 

SWR=000000=SETUP VARIABLE ISR (OVERLAY) (NOT DN*»i 1 OR DMUBB) 
SET APPROI ATE SWITCHES AND HIT CONTINUE* 



2« THE FOLLOWING HALTS ARE REPEATED FOR EACH ISR SPECIFIED „ 

SETUP SEQUENCE ISg DN11*DMU«»BB THEN VARIABLE ISR* (FOR EACH ENTRY SET SEICHES AND THEN HIT CONT tt ) 
A. HALT FOR BUS ADDRESS OF INTERFACE 
B s HALT FOR VECTOR ADDRESS OF INTERFACE 

C» HALT FOR PRIORITY OF INTERFACE (200=PRIO 4, 240=PRIO 5* 300=PRIO 6* ETC.) 

D 9 HALT FOR INTERFACE PARAM #1 (SEE SECT. 10.0 IN OVERLAY LISTING FOR PARAMETER DESCRIPTION) 

E 9 HALT FOR INTERFACE PARAM #2 (DNU AND DMBB PARAMETERS ARE DISCUSSED IN SECT. 10.0 OF THIS LISTING) 

F. GO BACK TO STEP A IF THIS SETUP WAS FOR DN OR DMB. 



3 8 HALT FOR OPERATIONAL SWITCH SETTINGS, (SEE STEP D.) 
A. PRESS CONTINUE TO START TESTING 



THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT 
A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE PROGRAM TESTS 
THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF NOT FOUND A 
SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 176 ) IS DEFAULTED TO. 
IF THIS IS THE CASE, UPON EXECUTION THE CONTENTS OF THE SWREG ARE 
DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 



(IE) SWRsXXXXXX NEW= 



POSSIBLE RESPONSES ARE: 



1 . <CR> IF NO CHANGES ARE TO BE MADE 

2. 6 DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER 

VALUE j LAST DIGIT FOLLOWED BY <CR>. 

3. *U TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED 

KEYING IN SWREG VALUE. 



BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING ~G 
(CNTL G) Oil CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM 
CODE (IE) ERROR ROUTINES* AFTER HALTS END OF PASS* AND OTHER 
APPLICABLE AREAS. 
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D. OPERATIONAL SWITCH SETTINGS . 
SW15=1 HALT ON ERROR 
SW14=1 SINGLE PASS 

SW14 HAS NO EFFECT IF SW04=0 
SW13=1 INHIBIT ERROR TYPEOUTS 
SW12=1 INHIBIT ALL TYPEOUTS EXCEPT ERRORS 

IF SW12=0 AND SW04=1 END PASS IS TYPED 

AND TRANSMITTED/RECEIVED DATA IS TYPED. 
SWilsl USE PREVIOUSLY SPECIFIED DATA 
SW10=1 DATA SELECT ( WITH SW09) 
SW09=1 DATA SELECT (WITH SW10) 

00=1 GET DATA FROM OPERATOR 

01=1 TEST MESSAGE #1 ($A QUICK BROWN FOX) 

10=1 TEST MESSAGE #2 (SB NUMERICS) 

11=1 TEST MESSAGE #3 ($C COMTEST/QUICK BROWN FOX/NUMERICS) 
SW08=1 TRANSMIT RECEIVED DATA (INTERNAL LOOPBACK MODE) 
SW07=1 DO NOT TEST RECEIVED DATA 

SW06=1 MONITOR TRANSMITTED DATA ON CONSOLE TTY .* 

SW05=l MONITOR RECEIVED DATA ON CONSOLE TTY.# 

* IN MANY CASES* NOT ALL DATA WILL APPEAR ON THE CONSOLE 
TTY. THIS IS ESPECIALLY TRUE WHEN THE COMM INTERFACE IS 
RUNNING AT A FASTER BAUD THAN THE CONSOLE, BUT EVEN AT EQUAL 
OP SLOWER BAUDS* ALL CHARACTERS MAY NOT APPEAR ON THE CONSOLE. 

SW04=1 RETURN TO MONITOR FOR END PASS 

WHEN SW04=0 PROGRAM LOOPS IN THE OVERLAY NEVER RETURNING TO THE MONITOR. 
SW03=1 INTERNAL LOOPBACK MODE 
SW02=1 EXTERNAL LOOPBACK MODE 
SW01=1 ONE-WAY-IN MODE 
SW00=1 ONE-WAY-OUT MODE 

IF OPERATOR SPECIFIED DATA WAS INDICATED, THE PROGRAM WILL TYPE A 
REQUEST FOR THE DATA. DATA MAY BE ENTERED AS ASCII CHARACTERS OR OCTAL CODE, 
TYPE IN THE DATA TERMINATED WITH A CR. OCTAL CODE MAY BE ENTERED BY TYPING AN 
*(UP ARROW) FOLLOWED BY THE OCTAL CODE (IN THE RANGE 000 TO 377) 
SEPERATED BY SPACES AND TERMINATED BY "(UP ARROW) . 
I.E. ABCD* 000 123 377* EFG (CAR. RETURN) 

A TYPICAL SWITCH SETTING FOR HALF-DUPLEX=0031 50 THIS SETTING USES 

INTERNAL LOOPBACK MODE, LOOPS IN OVERLAY, MONITORS TRANSMITTED AND RECEIVED 

DATA ON THE CONSOLE TTY, AND TESTS RECEIVED DATA USING TEST MESSAGE #3. 

A TYPICAL SWITCH SETTING FOR FULL-DUPLEX=003144 THIS SETTING 
IS THE SAME AS ABOVE EXCEPT IT USES THE EXTERNAL LOOPBACK MODE. 

ALL STANDARD MESSAGES( TEST MESSAGES 1-3) ARE PRECEDED BY 2 FILL CHARACTERS( 177), 
AND ARE FOLLOWED BY A CR(015), LF(01 2) § RECEIVE TERMINATING CHARACTER( 001 ) , 
4 FILLS(177), AND A TRANSMIT TERMINATING CHARACTER ( 000 ) . DURING TRANSMISSION, 
WHEN A 000 CHARACTER IS SEEN THE TRANSMISSION IS STOPPED .DURING RECEPTION, 
WHEN A 001 CHARACTER IS RECEIVED, THE RECEIVER IS SHUT OFF. 

IF THE MESSAGE WAS INPUTED BY THE OPERATER, THE TERMINATING CHARACTERS ARE ADDED, 
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TEST MODES 

INTERNAL LOOPBACK MODE 

1. THE OVERLAY WAITS TO RECEIVE A MESSAGE (TERMINATED BY <001>) 

2. VERFIES THE DATA AGAINST THE DATA SELECTED BY SW09 AND SW10(SW7=0) 

3. TRANSMIT THE DATA SELECTED BY SW09 AND SW10 (SW8=0) OR 
TRANSMIT THE RECEIVED DATA (SW8=1) 

4. RETURNS TO MONITOR FOR " END PASS" (SW4=1) OP 
GO TO STEP 1 , (SW4=0) 

EXTERNAL LOOPBACK MODE 

1 . THE OVERLAY SETS REQUEST TO SEND 

2. WAIT FOR CLEAR TO SEND 

3. TRANSMITS THE SELECTED DATA 

4. RESETS REQUEST TO SEND 

5. WAIT FOR MESSAGE TO BE RECEIVED 

6. VERIFIES THE DATA (SW07=0) 

7. RETURNS TO MONITOR FOR " END PASS" . (SW04 = 1) OR 
GO TO STEP i(SW04=0) 

ONE-WAY-IN MODE 

U THE OVERLAY WAITS FOR MESSAGE TO BE RECEIVED. 

2. VERIFIES THE DATA(SW07=0) 

3. RETURNS TO MONITOR FOR "END PASS" (SW04=1 ) OR 
GO TO STEP 1 (SW04=0) 

ONE-WAY-OUT MODE 

1 . THE OVERLAY SETS REQUEST TO SEND 
2. WAITS FOR CLEAR TO SEND 
3* TRANSMITS SELECTED DATA 

4. RETURNS TO MONITOR FOR "END PASS" . (SW04=1) OR 
GO TO STEP 1 (SW04=0) 

E. THE OVERLAY IS THEN ENTERED AND A CONNECTION ESTABLISHED EITHER 
MANUALLY OR AUTOMATICALLY. 

IF ONE-WAY-IN OR INTERNAL LOOPBACK MODES ARE SELECTED. 

THE OVERLAY WILL SET DATA TERMINAL READY AND WAIT FOR DATA. 

IF ONE-WAY-OUT OR EXTERNAL LOOPBACK MODES WERE SELECTED. 
THE OVERLAY WILL SET DATA TERMINAL READY AND REQUEST TO SEND. 
THE OVERLAY WILL THEN WAIT FOR CLEAR TO SEND BEFORE ATTEMPTING TO 
TRANSMIT DATA. 
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F. IF SW04sO THE OVERLAY WILL CONTINUE TO 
TRANSMIT/RECEIVE DATA, 

IF SW04=1 THE OVERLAY WILL RETURN 
TO THE MONITOR AND TYPE "END PASS". 

IF BOTH SW04sl AND SW14=1, THE PROGRAM WILL REQUEST 
NEW INTERFACE PARAMS AFTER ONE PASS OF THE SELECTED 
TEST MODE , 

TEST EXECUTION MAY BE INTERRUPTED BY TYPING THE FOLLOWING 

CHARACTERS ON THE CONSOLE TTY. 

LINE FEED s RESTART PROGRAM AT LOCATION 200. 

QUESTION MARK = PRINTOUT FIRST 8 WORDS OF INPUT BUFFER, (ASCII) 

THEN TYPE EITHER: 

«WXXXXXX TO PRINTOUT THE 8 WORDS 

AT LOC XXXXXX. 

*BXXXXXX TO PRINTOUT THE 16 BYTES 

AFTER LOC XXXXXX, 

#C TO CONTINUE 

PROGRAM MUST BE RESTARTED AT 200 AFTER PRINTING. 
CARRIAGE RETURN s RESTART AT REQUEST FOR NEW OPERATIONAL SWITCHES. 

5.0 PROGRAM AND/OR OPERATOR ACTION 

IF THE OPERATOR WISHES TO MANUALY EXAMINE THE TRANSMIT OR RECEIVE 
BUFFERS, DO THE FOLLOWING; TO FIND THE STARTING ADDRESS OF THE RECEIVE 
BUFFER, LOAD ADDRESS 11020 AND EXAMINE, TO FIND THE STARTING ADDRESS 
OF THE TRANSMIT BUFFER, LOAD ADDRESS 11022 AND EXAMINE, 

5.1 NORMAL HALTS 
SEE SECTION 4, 



6.0 ERRORS 

6.1 ERROR REPORTING 

THE ONLY ERROR REPORT FROM THE CONTROL PROGRAM OCCURS IF THE 
INTERFACE SPECIFIED IS NOT LOADED, 

THE ERROR REPORTS FROM THE VARIOUS INTERFACE SERVICE 
ROUTINES ARE AS DEFINED IN THEIR DOCUMENTS 



7,0 RESTRICTIONS 

THE OPERATION OF THIS PROGRAM REQUIRES COORDINATION BETWEEN 
THE OPERATOR AND THE OPERATOR OF ANOTHER PDP-11 SYSTEM 
UNLESS ONE OF THE SYSTEMS IS ALWAYS OPERATING IN A FIXED 
MODE, THE FOLLOWING TABLE LISTS THE VALID COMBINATIONS: 
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MOTES ONLY ONE NODE MAY BE SELECTED AT A TIME « 



CPU #1 

0NE»WAY»0UT 

ONE-WAY-IN 



CPU #2 

ONE-WAY-IN 

ONE-WAY-OUT 

INTERNAL-LOOPBACK 

EXTERN AL-LOOPB AC K 

EXTERN AL-LQQPBACK (FULL-DUPLEX) 



EXTERN AL^LOOPB AC K 
INTERNAL-LOOPBACK 
EXTERNAL-LOOPBACK 



WHEN THE COMMUNICATION LINK INVOLVES MODEMS THE FOLLOWING 
RESTRICTIONS APPLY: 

IF RUNNING IN FULL DUPLEX MODE BOTH SYSTEMS 
MUST BE IN EXTERNAL LOOP BACK MODE. 

BOTH SYSTEMS SHOULD BE RUNNING IDENTICAL ROUTINES. 
EXAMPLE: 

SWITCHES 14,13,7,4 SHOULD BE THE SAME 
ON BOTH CPU S 
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8.0 MISCELLANEOUS 

ITEP WAS CHECKED OUT USING THE FOLLOWING BELL TELEPHONE MODEMS. 
201A (HALF-DUPLEX SYNCHRONOUS 2000 BAUD) 
202C (HALF-DUPLEX ASYNCHRONOUS 1200 BAUD) 
103A (FULL-DUPLEX ASYNCHRONOUS 110 BAUD) 



9.0 PROGRAM DESCRIPTION 

THE INTERPROCESSOR TEST PROGRAM (ITP) PROVIDES THE 
LINKAGE BETWEEN THE OPERATOR AND THE VARIOUS INTERFACE 
SERVICE ROUTINES (OVERLAY) WHICH PREFORM THE ACTUAL DATA 
MOVEMENT AND VERIFICATION TO AND FROM THE COMMUNICATION 
LINK, IN ADDITION, ITP CONTAINS VARIOUS INTERRUPT AND 
SUB ROUTINES WHICH ARE USED BY THE OVERLAY'S. 

9.1 TRAP CATCHER 

THIS IS A SERIES OF JUMP AND HALT INSTRUCTIONS PLACED IN ALL 
UNUSED VECTORS TO CATCH UNEXPECTED INTERRUPTS. 

9.2 SWITCH REGISTER INPUT ROUTINE ( MANIN : ) 

THIS ROUTINE IS ENTERED ONLY WHEN SWITCH 15 IS SET WHEN 
PROGRAM IS STARTED AT LOCATION 200. IT ACCEPTS PARAMETERS 
FOR THE ISR'S FROM THE CONSOLE SWITCHES AT A SERIES OF HALTS. 
AS SPECIFIED IN OPERATING INSTRUCTIONS. 

9.3 PARAMETER INPUT ROUTINE (GETITS) 

THIS ROUTINE SOLICITS PARAMETERS FROM THE OPERATOR ON 
THE CONSOLE DEVICE AND PLACES THEM IN THE SPECIFIED ISP'S 
PARAMETER TABLE. 

NOT USED OPTIONAL PARAMETER WORDS ARE INDICATED BY THE 
PRESENSE OF A NEGATIVE VALUE IN THE ISR'S TABLE, THIS SECTION 
OF CODE UTILIZES SUB /ROUTINE 'GETANY* WHICH PRINTS HUT THE 
mm POINTED TO »Y THE ADDRESS IN REGISTER 0. 
IT THEN INPUTS A WORD OR CARRIAGE RETURN FROM THE OPERATOR. 
IF ONLY A CARRIAGE RETURN IS TYPED, THE PARAMETER IS 
LEFT AS IT IS, OTHERWISE IT IS REPLACED BY THE OPERATORS 
TYPE IN AND THE POINTER IN REGISTER IS INCREMENTED TO THE 
NEXT WORD. 

9.4 TTY INTERRUPT (TTYINT?) 

THE TTY INTERRUPT IS USED TO INTERRUPT THE EXECUTION OF 

A TEST IN ORDER TO RESTART (TYPE A LINE FEED) OR TO SPECIFY 

NEW OPERATIONAL SWITCHES (TYPE A CARRIAGE RETURN) 
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9*5 SET SWITCH OPTIONS CSWRSETf ) 

THE PROGRAM WILL HALT {MANUAL PARAMETER ENTRY) OR WAIT FOR 
A CARRIAGE RETURN (TTY CONTROL) AT THIS POINT TO PERMIT 
THE OPERATOR TO SETUP THE OPERATIONAL SWITCH SETTINGS. 
THE TEST HQDECS&OO-SM03) AND TEST DATAC SW08 m SWi I ) MAY BE 
CHANGED ONLY AT THIS POINT. ALL OTHER SNITCHES MAY BE 
CHANGED WHILE A TEST IS RUNNING. 

IF HEW VARIABLE DATA IS SPECIFIED* THIS ROUTINE WILL REQUEST 

THAT THE DATA BE ENTERED AND UTILIZES THE *GETSTR* SUB/ROUTINE TO INPUT 

THE DATA FROM THE OPERATOR. 

9.6 SETUP TIMER (SUTIMEf) 

THE PROGRAM LOOKS FOR AND UTILIZES EITHER THE LINE CLOCK 
OR REAL TIME CLOCK IF EITHER IS PRESENT ON THE SYSTEM . A 
BUS ERROR (NO RESPONSE) IS USED TO INDICATE THE ABSENCE OF 
A CLOCK. IF NEITHER EXISTS, THE PROGRAM WILL STILL RUN BUT 
IS SUBJECT TO WAITING IN UNENDING LOOPS, 

9.7 THE INTERFACE SERVICE ROUTINES (ISK'S) ARE ENTERED AT THIS POINT . 

9.8 END OF PASS (SEOP:) 

THIS SECTION OF CODE WILL PRINT "END OF PASS XXXXXX" 
AND THEN SENSE FOR SW14. IF SWITCH 14 IS RESET THE 
OVERLAY'S ARE REENTERED. 

IF SWITCH 14 IS SET THE PROGRAM CHECKS TO SEE IF IT 
WAS LOADED BY A MONITOR (LOCATION 42 NOT EQUAL 0) AND IF 
IT WAS, CONTROL IS RETURNED TO THE MONITOR, OTHERWISE 
THE PROGRAM REQUESTS NEW PARAMETERS. 

9.10 HALT HANDLER (SHLTS ) 

THIS ROUTINE IS USED TO SENSE THE OPERATIONAL SWITCHES 
AND PROVIDE ERROR CONTROL. IT WILL PRINTOUT THE ADDRESS 
OF THE ERROR HLT IF SWITCH 13 (DELETE ERROR TYPEOUTS) 
IS DOWN (NOT SET) 
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9.11 READ A CHARACTER ROUTINE (SREADCi) 

THIS ROUTINE GETS A CHARACTER FROM THE TTY AND PLACES IT 
ON THE STACK 

9.12 READ A STRING ROUTINE (SREADS) 

THIS ROUTINE GETS A STRING OF CHARACTERS FROM THE TTY AND PLACES 
THEM IN A BUFFER SPECIFIED BY THE ADDRESS FOLLOWING 
THE SUB/ROUTINE CALL. 

THE ROUTINE WILL ALSO ACCEPT OCTALLY REPRESENTED CHARACTERS 
WHEN THEY ARE PRECEEDED AND FOLLOWED BY UP ARROWS, 
AND SPERATED BY SPACES OR COMMAS. 

9.13 OCTAL INPUT ROUTINEC $ ACCEPT: ) 

THIS ROUTINE READS AN OCTALLY REPRESENTED WORD FROM THE TTY 
AND PLACES IT IN THE LOCATION INDICATED BY THE ADDRESS 
FOLLOWING THE SUB/ROUTINE CALL, 

9.14 CLOCK INTERRUPT ROUTINE (TIMER: ) 

THIS ROUTINE IS ENTERED ON INTERUPTS FROM EITHER THE 
LINE CLOCK OR REAL TIME CLOCK EVERY 16 MILLISECONDS IF 
EITHER IS PRESENT. 

IT WILL INCREMENT LOCATION 'TIME:' IN THE OVERLAY'S PARAMETER 
TABLE EVERY SECOND. 

9.15 BINARY TO OCTAL ROUTINE ($B2016) 

THIS ROUTINE WILL PRINTOUT THE OCTAL REPRESENTATION OF 
A WORD ON THE STACK « 

9.1* POWER DOWN ROUTINE (SPWRDN:) 

THIS ROUTINE SAVES THE STATUS OF THE MACHINE WttfcN 

power is lost. 
9»t? pom* w mmwz cspwrupo 

this routine msmms the state or the n*tmm mm 

POWER IS RESTORED AND RESTARTS AT ADDRESS 200. 

9.18 VARIABLE INTERFACE SERVICE ROUTINE (VISR:) 

THESE LOCATIONS ARE RESERVED FOR AND WILL BE 
OVERLAID BY THE VARIABLE ISR'S. 

THE FIRST 2 WORDS CONTAIN A 3 CHARACTER ISR NEMONIC FOLLOWED 
BY A ZERO CHARACTER. 

THE NEXT 3 WORDS CONTAIN THE BUS ADDRESS, VECTOR ADDRESS AND 
PRIORITY. 

THE NEXT 2 WORDS MAY CONTAIN OPTIONAL PARAMETERS. THEY WILL 
CONTAIN ALL ONES IF THEY ARE NOT REQUIRED 

THE NEXT WORD MAY CONTAIN THE ADDRESS OF AN INPUT BUFFER 
IF THE ISR REQUIRES AN ASCII PARAMETER. IT WILL CONTAIN 
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ALL ONES IF THE PARAMETER IS NOT REQUIRED. 

LOCATION 'CLOCK:* WILL BE INCREMENTED EVERY SECOND WHILE 

THE TEST IS BEING RUN IF THERE IS A LINE CLOCK OR REAL TIME CLOCK 

ON THE SYSTEM. IT MAY BE USED AS A ELASPED TIMER BY THE ISR. 



10.0 PARAMETERS FOR THE DM1 IBB AND THE DNH 

10.1 DM1 IBB PARAMETERS 

PARAMi 1 IS LOADED INTO THE CONTROL AND STATUS REGISTER OF THE DM1 IBB 

TO SELECT THE LINE NUMBER IN OCTAL (BITS 0-3), ALL OTHER BITS MUST BE O'S. 

THIS IS THE ONLY PARARMETER USED BY THE DM1 IBB. 

10.2 DN11 PARAMETERS 



ONLY PARAMI 3 IS USED BY THE DNU, IT CONTAINS THE NUMBER THE DN WILL DIAL, 
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535 
536 
§37 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
57 s ? 
SflO 
581 
582 
583 
584 
585 
586 
5B7 
588 
589 
590 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000000 
000006 
000007 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000000 
000040 
000100 
000140 
000200 
000240 



| BASIC DEFINITIONS 
I ••**•*••••»«•* 

I INITIAL ADDRESS OF THE STACK POINTER 
STACKS 1070 

!••«•»»••«•«•««• 

.EQUIV EMT,HLT 



| REGISTER DEFINITION 



J BASIC DEFINITION OF ERROR CALL 



ROs 
Rl" 

R2a 
R3 S 
R43 
R53 

mm 

R7» 

MODEs 
R6>SP 
R7»PC 



%0 

%1 
%2 
%3 
%4 
%5 
%6 
%7 
%0 



ISWITCH 

SW158 

SMI 4s 

SW13 = 

SW12 = 

Swll = 

SWiOs 

SW09& 

Sw08 = 

SW07 = 

SW06« 

SW05 = 

Sw04 = 

SW03& 

SW02a 

SWOla 

SWOOb 

.EQUIV 

.EQUIV 

.EQUIV 

•EQUIV 

•EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

, EQUIV 

•EQUIV 

PRTYOa 

PRTYla 

PRTY2a 

PRTY3a 

PPTY4s 

PRTYSa 



DEFINITION 

100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

I 

S*09rSW9 

SW08 r SW8 
SW07*SM7 
SW06,SW6 
SW05# SW5 
SW04»SM4 
SW03«SW3 
SW02# SW2 
SW01«SW1 
SWOCSWO 


40 

100 

140 

200 

240 



I GENERAL 
| GENERAL 
} GENERAL 
I GENERAL 
I GENERAL 
f GENERAL 
jGENERAL 
| GENERAL 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
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591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 



000300 
000340 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 



000024 
006672 



000026 000340 

000030 005032 

000032 000340 

000034 006544 

000036 000340 



PRTY6* 300 

PRTY7s 340 

^MISCELLANEOUS BIT ASSIGNMENT 

BITISs 100000 

BIT14b 40000 

BIT13* 20000 

BITl2s 10000 

BITlla 4000 

BIT10= 2000 

BIT09s 1000 

BIT08a 400 

BITQ7s 200 

BIT06B 100 

BIT05= 40 

BIT04s 20 

BIT03- 10 

BIT02= 4 

BITOls 2 

BITOOs 1 

.EQUIV BIT09,BIT9 

.EQUIV BIT0Q,B1T8 

•EQUIV BIT07,BIT7 

•EQUIV BIT06,BIT6 

.EQUIV BIT05»BIT5 

•EQUIV BIT04,BIT4 

•EQUIV BIT03,BIT3 

•EQUIV BIT02,BIT2 

•EQUIV BIT01,BIT1 

• EQUIV BITOCBITO 

| VECTOR ADDRESSES 
ERRVECa 4 
RESVECa 10 
TBITVECal 4 
TRTVECa 14 
BPTVECa 14 
lOTVECa 20 
PWRVECa 24 
EMTVEC" 30 
TRAPVECs34 
•EQUIV R4,CSR 

• EQUIV R4» RCSR 

9 a0 

t TRAP CATCHER IN UNUSED LOCATIONS FROM - 776 

I LOCATION WILL CATCH IMPROPERLY LOADED VECTORS 
.324 
8PWRDN 
340 
GHLT 
340 
STRAP 
340 
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5EQ 0016 



647 
648 
649 



000100 
000100 006312 
000102 000340 



651 
652 
653 



000174 
0174 000000 
0176 000000 



.8174 
OXSPPEGiO 
SWREGl 



655 
656 
657 



000137 
000137 



003254 
004116 



; JUMP TO STARTING ADDRESS OF PROGRAM 
1 RESTART AT 204 , DO THE RESTART, 



MAINDEC-1 1-DZITA-D 
DZITAD.PU 01 -DE 
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661 
662 
663 



667 
666 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 



,=1100 

; ROUTINE TO TYPE ASCII MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE, 
; THE ROUTINE WILL INSERT A NUMBER OK NULL CHARACTERS AFTER A LINE FEED „ 
; NOTE 1 t NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 
f NOTE2 * SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED, 

{CALL! 

; 1 ) USING A TRAP INSTRUCTION 











TYPE 


, MESADR 


? MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 








;OR 
; 


TYPE 












j 


MESADR 






001100 


010046 




STYPES 


MOV 


P0,-CSP) 


\ SAVE RO 


001102 


017600 


000002 




MOV 


P2(SP),R0 


; GET ADDRESS OF ASCIZ STRING 


001106 


062766 


000002 000002 




ADD 


82#2(SP) 


jADJUST RETURN PC 


001114 


11204b 




1$: 


MOVB 


(R0)+,-(SP) 


jPUSH CHARACTER TO BE TYPED ONTO STACK 


001116 


001003 






BNE 


2$ 


jBR IF IT ISN'T THE TERMINATOR 


001120 


005726 






TST 


CSP)* 


;IF TERMINATOR POP IT OFF THE STACK 


001122 


012600 






MOV 


(SP)+,R0 


j RESTORE RO 


001124 








RT1 




5 RETURN 


001126 


004737 


001160 


2$: 


JSR 


PC, 5$ 


jGO TYPE THIS CHARACTER 


001132 


122726 


000012 


3$: 


CMPB 


112, (SP)+ 


jCHECK IF THE CHAR. TYPED WAS A LINE FEED 


001136 


001366 






BNE 


16 


;GO GET NEXT CHAR, IF NOT LINE FEED 


001140 


013746 


001524 




MOV 


NULL,-(SP) 


; GET • OF FILLER CHARS, NEEDED 














; AND THE NULL CHAR. 


001144 


105366 


000001 


4s: 


DECB 


KSP) 


; DOES A NULL NEED TO BE TYPED? 


001150 


002770 






BLT 


3$ 


t BR IF NO— GO POP THE NULL OFF OF STACK 


001152 


004737 


001160 




JSR 


PC5S 


;GO TYPE A NULL 


001156 


000772 






BR 


4$ 


jLOOP 


001160 


105777 


000334 


55: 


TSTB 


@TPS 


;\ AIT UNTIL PRINTER IS READY 


001164 


100375 






BPL 


5S 




001166 


116677 


000002 000326 




MOVB 


2(SP), PTPB 


; LOAD CHAR TO BE TYPED INTO DATA REG, 


001174 


000207 






RTS 


PC 
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SEQ 0018 



696 












697 










J 


DEBUG 1 


DUMP ROUTINE 




698 












699 




001200 








,al200 






700 


001200 


013746 


011042 




DHPHLT 1 


MOV 


FLAG,-(SP) 




701 


001204 


042737 


000070 


011042 




BIC 


•70, FLAG 


lINIT FLAGS 


702 


001212 


104400 


001532 






TYPE 


, ASTRK 


7 TYPE # 


703 


001216 


104402 








GETCHR 






704 


001220 


012637 


001314 






MOV 


(SP)+«6S 




705 


001224 


104400 


001314 






TYPE 


,68 




706 


001230 


122737 


000127 


001542 




CMPB 


•127,8CHAR 


|W? FOR WORD 


707 


001236 


001004 








BNE 


IS 




708 


001240 


052737 


000010 


011042 




BIS 


«BIT3» FLAG 


I SET FLAG BIT 


709 


001246 


000430 








BR 


3$ 




710 


001250 


122737 


000102 


001542 


l$t 


CMPB 


01O2*$CHAR 


;B? FOR BYTE 


711 


001256 


001004 








BNE 


2$ 




712 


001260 


052737 


000020 


011042 




BIS 


• BIT4r FLAG 




713 


001 266 


000420 








BR 


35 




714 


001270 


122737 


000103 


001542 


2 3 : 


CMPB 


3 103,$CHAR 


fC? FOR CONTINUE 


715 


001276 


001014 








BNE 


3$ 




716 


001300 


012637 


011042 






MOV 


( SP) + » FLAG 




717 


001304 


052737 


000040 


011042 




BIS 


•BIT5* FLAG 




718 


001312 


000413 








BR 


DUMP 




719 


001314 


000000 






68 : 


000000 






720 


001316 


1 04400 


001526 




4$: 


TYPE 


, QUES 




721 


001 322 


104400 


001536 






TYPE 


#CRLF 




722 


001326 


000724 








BR 


DMPHLT 




723 


001330 


005037 


001544 




381 


CLR 


WORK 




724 


001334 


005726 








TST 


(SP) + 




725 


001336 


104406 


001544 






ACCEPT 


, WORK 




726 


001342 


01 2700 


001476 




DUMPS 


MOV 


#DMPLST,RO 


;INIT DUMP LIST 


727 


001346 


062710 


000020 






ADD 


#20, (RO) 


;BUMP ADDRESS 


728 


001352 


032737 


000040 


011042 




BIT 


3BIT5, FLAG 




729 


001360 


001005 








BNE 


Ll 




730 


001362 


013737 


001544 


)01476 




MOV 


WORK, DMPLST 




731 


001370 


001001 








BNE 


Ll 




732 


001372 


022020 








CMP 


(RO)-f # (P0) + 


;SKIP 1ST TWO ENTRIES 


733 
734 


001374 


012001 






Ll : 


MOV 


CR0)+# Rl 


;Gt r ADDP OF DATA FROM LIST 


735 


001 376 


001700 








BEQ 


DMPHLT 


;BP IF END OF LIST 


736 


001400 


104400 


001536 






TYPE 


,CRLF 




737 


001404 


010146 








MOV 


Rl, -(SP) 


• PUSH ADDR ON STACK 


738 


001406 


004037 


006350 






JSR 


R0,SB2O16 


; PRINT OUT ADDRESS 


739 

740 


001412 


032737 


000010 


011042 




BIT 


1 BIT3 , FLAG 




741 


001420 


001014 








BNE 


L3 




742 


001422 


012702 


000020 






MOV 


320, R2 


j SET WORD COUNTER a 8 


743 


001426 


005046 






L2 % 


CLR 


-(SP) 




744 


001430 


11211* 








MOVB 


( Rl ) ♦» { SP) 




745 


001432 


104400 


007152 






TYPE 


, MSGOO 




746 


001436 


004037 


006336 






JSR 


R0,$B2OCT 




747 


001442 


003 








.BYTE 


3 




748 


001443 


001 








.BYTE 


1 




749 


001444 


005302 








DEC 


R2 


; DECREMENT WORD COUNTER 


750 


001446 


001367 








BNE 


L2 


J BR IF NOT = 


751 


001450 


000751 








BR 


Ll 


; GET NEXT ENTRY 
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; DECREMENT THE WORD COUNT 



DZ1TAD.P1 1 01 


•»DEC-76 


11 :00 


DUMP ROUTINE 




752 














753 


001452 


012702 


000010 


L3I 


MOV 


810, R2 


754 


001456 


01 2146 




1$: 


MOV 


(Rl)+,-(SP) 


755 


001460 


104400 


007152 




TYPE 


, MSGOO 


756 


001464 


004037 


006350 




JSR 


R0,SB2O16 


757 


001470 


005302 






DEC 


R2 


758 


001472 


001371 






BNE 


IS 


759 


001474 


000737 






BR 


Ll 


760 


001476 


000000 




DMPLST: 







761 


001500 


000000 











762 


001502 


000001 




.RX: 


.BLKW 


1 


763 


001504 


000001 




9 TXi 


. BLKW 


1 


764 


001506 


000000 











765 


001510 


000000 











766 


001512 


000000 











767 


001514 


177560 




TKSJ 


177560 




768 


001516 


177562 




TKB* 


177562 




769 


001520 


177564 




TPSs 


177564 




770 


001522 


177566 




TPB: 


177566 




771 


001524 


000000 




NULL: 


.WORD 






yGET NEXT ENTRY 

; RESERVED FOR SW, REG 

; END OF TABLE FOP SW. REG 



t TTY KEYBOARD STATUS REG. ADDRESS 

: TTY KEYBOARD DATA BUFFER REG. ADDRESS 

;TTY PRINTER STATUS REG, ADDRESS 

j TTY PRINTER BUFFER REG, ADDRESS 

{CONTAINS NULL CHARACTER FOR FILLS 
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SIQ 0020 



772 








773 








774 








77S 








776 








777 


001326 


037440 


000040 


778 


001532 


005015 


000032 


779 


001336 


015 




780 


001537 


012 


000 


781 




001542 




782 




001544 




783 


001542 


000000 




784 


001544 


000000 




785 


001546 


000000 




786 


001550 


000000 




787 


001552 


000000 




788 


001554 


000000 




789 


001556 


000000 




790 


001560 


000000 




791 


001562 


000000 




792 








793 


001564 


002604 




794 


001566 


003004 




795 


001570 


003076 




796 


001572 


003126 




797 


001574 


002604 




798 


001576 


003004 




799 


001600 


003076 




800 


001602 


003126 




801 








802 








803 


001604 


000400 




804 


002604 






805 


002604 


000100 




806 








807 


003004 


177 


177 




003006 


040444 


052040 




003076 


177 


177 




003100 


041044 


030040 






003126 






003126 


177 


177 




003130 


041444 


041440 




003230 


030040 


031061 



I ######•#######•#####••##••#####•##•#######••••###•#•###•###••••# 

I CONSTANTS AND WORKING STORAGE 

I •####•#############•#•###•#•#•••#•#♦•##•#•#♦••###••##•#•#•#•#•#• 



QU1SI 
ASTRKl 

CRLFl 
LFi 



SCHARl 

WORK! 
WORKlI 
W0RK2I 
W0RK3I 
W0RK4I 
WORKS 1 
W0RK6I 
FLAGS I 



•A5CXZ " 7 " 
.ASCXZ <15><12> 9, # s 
« ASCII <15> 
•ASCXZ <12> 

.EVEN 

SWORKbWORK 













1 DATA PATTERN 


ADDRESS 


TABLE AND PATTERNS 






DATs .WORD 


VDB 


f ADDRESS 


OF 


VARIABLE DATA BUFFER 


.WORD 


DPI 


} ADDRESS 


OF 


MESSAGE 1 


• WORD 


DP2 


| ADDRESS 


OF 


MESSAGE 2 


.WORD 


DP3 


1 ADDRESS 


OF 


ME8SAGE 3 


.WORD 


DP4 


; ADDRESS 


OF 


MESSAGE 4 


.WORD 


DPS 


t ADDRESS 


OF 


MESSAGE 3 


.WORD 


DP6 


; ADDRESS 


OF 


MESSAGE 6 


.WORD 


DP7 


} ADDRESS 


OF 


MESSAGE 7 


1 RECEIVER DATA 


BUFFER 


STARTS HERE.. 






IBUFl .BLKW 


400 









,BLKW 100 



; VARIABLE DATA BUFFER 



003254 



DPI i .BYTE 177,177 

042510 .ASCIZ ' f A THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG. "<15>< 12><001><177><1 77><177><1 

• EVEN 

DP2 : .BYTE 177,177 

031061 .ASCIZ 'SB 1 2 34567 89 '< 1 5>< 1 2><00 1><1 77><1 77><1 77X1 77> 

.EVEN 

DP31 .BYTE 177,177 

046517 .ASCII 'SC COM-TEST MAYNARD THE QUICK BROWN FOX JUMPED OVER THE LAZY DUG* 
032063 .ASCIZ ' 1 23456789 '< 1 5>< 1 2X001 X177X 1 77X 1 77X 1 77> 

.EVEN 



808 
809 
810 
811 
812 
813 



002604 
003004 
003076 
003126 



DP4sVDB 
DP5*DP1 
DP6>DP2 
DP7aDP3 



| SPARE 
I SPARE 
t SPARE 
I SPARE 
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DZITAD, 


Pll 01 


«DEC»76 


moo 




INTERPPOCESSOR 


TEST PROGRAM 




814 










i *»«»**•*•••*»»»««•»####»•••••«»«»«»•*««•»«**«»»•*•*•••«*»•*•»••* 


815 










1 START 


□F PROGRAM 




816 










j •«»•#«*««*««»«*•*•«*»»•#«••»»«**»•«••#«»«•«•««••#••*•••••••••«•• 


817 


003254 








BEGIN t 








818 


003254 


012706 


001070 




MOV 


# STACK # 


SP 


{SETUP THE STACK POINTER 


819 


003260 


104414 


000340 




5TP5,PRTY7 






820 


003264 


104420 






SUSWR 








821 


003266 


005037 


004774 




CLP 


SPASS 




f CLEAR THE PASS COUNT 


822 


003272 


012737 


003254 


003462 


MOV 


8BEGIN, 


SLPADR 


;INIT1LIZE THE LOOP ADDRESS FOR SCOPE 


823 


003300 


005037 


001562 




CLR 


FLAGS 




{ RESET FLAGS 


824 


003304 


000005 






RESET 








823 










i »*•«««•#««»*»»#•«•»•«•••«#»••««•»#««»«••#•«••*••«*••««••••••••*# 


826 










i GET PARAMETERS 


FROM OPERATOR 


827 










i •«««»«««••«••*#»#«#•#»»•*•««««•»«••*«««••*•»••»«»•««*•«••«•»•••• 


828 


003306 


022777 


100000 


003530 


CMP 


nooooo 


,?SWR 


j MANUAL INPUT?? 


829 
830 


003314 


001063 






BNE 


GETIT 




{ BR IF NO 


831 










i •«««»««•««•»#•««»•*«••««*••»«•»*•«««•••*•«»•••••»•«•••»#•••••••• 


832 










I SWITCH 


REG INPUT ROUTINE 


833 










t »*••«««»•»*«••«#••*•««««#**«•**»•*»*••*#•»«•««*•»««•»•«#«••»#«•• 


834 


003316 


012701 


010164 




MANINl MOV 


•DN*4,R1 


} PRESET POINTER FOR DN-11 


835 


003322 


005000 






CLR 


PO 




{CLEAR DISPLAY 


836 


003324 


000000 






HALT 






{ HALT FOR ISR REQUEST 


837 


003326 


017737 


005312 


001562 


MOV 


9SWR, 


FLAGS 


{ SAVE ISR REQUEST INDICATORS 


838 


003334 


032777 


020000 


005502 


BIT 


320000, 


9SWR 


{IS DN11 SETUP REQUESTER? 


839 


003342 


001402 






BEQ 


,4-6 




; BR IF NO 


840 


003344 


004737 


003404 




JSR 


PC, MANBA 


j GO SETUP DN11 


841 
842 


003350 


012701 


010406 




MOV 


IDMB+4, 


Rl 


{ PRESET DMB ISR ADDRESS 


843 


003354 


032737 


040000 


001562 


BIT 


940000, 


FLAGS 


|IS DMB SETUP REQUESTED? 


844 


003362 


001402 






BEO 


.+6 




1 BR IF NO 


845 


003364 


004737 


003404 




JSR 


PC, MANBA 


fGO SETUP DM1 1 -B 


846 
847 


003370 


012701 


011004 




MOV 


«VISR+4 


»R1 


{ PRESET VARIABLE ISR ADDRESS 


848 


003374 


004737 


003404 




JSR 


PC, MANBA 


j GO SETUP VARIABLE ISR 


849 
850 
851 


003400 


000137 


004200 




JMP 


SWRSET 




{GO GET OPERATIONAL SWITCHES 


832 


003404 


011100 






MANBAl MOV 


(Rl), 


RO 


I DISPLAY BUS ADDR 


853 


003406 


000000 






HALT 






} HALT FOP BUS ADDR 


854 


003410 


017721 


003430 




MOV 


9SWR, 


(Pl) + 


835 


003414 


011100 






MOV 


(Rl), 


RO 


I DISPLAY VECTOR ADDR 


856 


003416 


000000 






HALT 






j HALT FOR VECTOR ADDR 


857 


003420 


017721 


003420 




MOV 


• SWR, 


(Rl)* 


838 


003434 


011100 






MOV 


(Rl), 


RO 


{DISPLAY PRIORITY 


859 


003426 


000000 






HALT 






I HALT FOR PRIORITY 


860 


003430 


017721 


003410 




MOV 


0SWR, 


(Rl) + 


861 


003434 


011100 






MOV 


(Rt)# 


RO 


{DISPLAY PAKAM «1 


862 


003436 


100410 






BMI 


MANINX 




j BR IF PARAM NOT REQUIRED 


863 


003440 


000000 






HALT 






I HALT FOR PARAM 11 


864 


003442 


017721 


005376 




MOV 


PSWR, 


(PI)* 


1 


865 


003446 


011100 






MOV 


(Rl), 


RO 


{DISPLAY PARAM 12 


866 


003450 


100403 






BMI 


MANINX 




1 BR IF PARAM NOT REQUIRED 


867 


003432 


000000 






HALT 






{HALT FOR PARAM 12 


868 


003454 


017721 


005364 




MOV 


95WR, 


(Rl)* 




869 


003460 


000207 






MANINXl RTS 


PC 
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SEQ 0022 



870 


003462 


000000 




871 








872 








873 








874 








875 


003464 


012700 


01 1000 


876 


003470 


1 04400 


007154 


877 


003474 


104400 


1 1000 


878 


003500 


104400 


001526 


879 








880 


003504 


104404 


001544 


881 


003510 


123727 


001544 


882 


003516 


001 431 




88 3 

884 


003520 


012700 


010160 


88b 


003524 


023737 


010160 


88b 


003532 


001004 




887 


003534 


052737 


020000 


888 


003542 


000417 




889 


003544 






890 


003544 


012700 


010402 


891 


003550 


023737 


010402 


892 


003556 


001004 




893 


003560 


052737 


040000 


894 


003566 


000405 




895 








896 


003570 






897 


003570 


104400 


007177 


898 
899 


003574 


000000 




900 


003576 


0001 37 


003254 


901 


003602 


01 0004 




902 


003604 


022020 




903 


003606 


104400 


007222 


904 


003612 


004737 


004776 


905 








906 


003616 


104400 


007241 


907 


003622 


004737 


004776 


908 








909 


003626 


104400 


007263 


910 


003632 


004737 


0047 76 


91 1 








912 


003636 


005710 




913 


003640 


1 004 1 2 




914 


003642 


104400 


007277 


915 


003646 


004737 


004776 


916 








917 


003652 


005710 




918 


003654 


100404 




919 


003656 


104400 


007314 


920 


003662 


004737 


004776 


921 








922 


003666 


016437 


000016 


923 


003674 


100424 




924 


003676 


104400 


007331 


925 


003702 


104400 





f ##•##••#•####••##•#•##•*#•»##»••#••##•»#•##•###•######•##••••«►## 

I ISR PARAM INPUT ROUTINE 

I ••••«•«•*#•*«••«••«•««•«*•»*•»«•••«»•••••»••«•••»•••»•*••••*••*• 



MOV 
TYPE 
TYPE 
TYPE 



•VI5R, 
# MSG01 
, VISR 
,QUES 



GETSTR , WORK 
CHPB WORK* 

BEO GETBA 



SIS 



001544 

001562 



001544 
001562 



\ PRESET ISP AUDK IN RO 
;<15><12> INTERFACE TYPE 

fPRINTOUT ISR NAME 



f READIN OPERATOR'S 
; IS IT CAR. RET? 
I BR IF YES 





MOV 


• DN, RO 


I PRESET DN ISR AOOR 




CMP 


DN, WORK 


)IS IT DN? 






nMRT.1T 

IsnD tat 


idd tp no 




ut a 


fdSOOOOf r unUD 


t jeiPT nN 1 t rt.ft c 
i DCii unii runu 




BR 


GETBA 


} uU ViEil UNI J rAMANa 


DMBTSTl 










MOV 


• DMB, RO 


| PRESET DM1 IB ISR 




CMP 


nun unoif 


| I o it un f 




« »5 


_ . . _ _ 


t RR TP wn 
| On lr n v 




BIS 


1 40000 , FLAGS 


1 5LT UM 1 1 «D ruKu 




BR 


GETBA 


I GO GET DMU-B PARAMS 


NOISR 1 










TYPfe. 




lap n(Ji uUALfbUi 




HALT 




}HALT 




JMP 


BEGIN 


I TRY AGAIN 


GETBA I 


MOV 


RO, R4 


I SAVE POINTER 




CMP 


(RO)*, (RO)* 


I INCREMENT ISR POINTER 




TYPE 


, MSG03 


;<15><12> BUS ADDRESSs 




JSR 


PC, GETANY 


j GET THE BUS ADDR 


GETVAI 


TYPE 


, MSG04 


I<15><12> VECTOR ADDRESSs 




JSR 


PCf GETANY 


;GET THE VECTOR ADDR. 


GETPRI! 


TYPE 


,MSG05 


;<15><12> PRIORITY" 




JSP 


PC* GETANY 


1 GET THE PRIORITY 




TST 


(RO) 


} PARAM 9 1 REQUIRED? 




BMI 


GETPJ 


t BR IF NO 


GETPRMi 


TYPE 


,MSG06 


}<15><12> PARAMS «1> 




JSR 


PC, GETANY 


I GET PARAM 




TST 


(RO) 


; PARAM #2 REQUIRED? 




BMI 


GETP3 


;BH IF NO 




TYPE 


,MSG07 


}<15><12> PARAMS «2s 




JSR 


PC, GETANY 


; GET PARAM 


GETP3 ! 


MOV 


16(P4), ARIA 


IIS ASCII PARAM REQUIRED 




BMI 


GETEX 


} BR IF NO 




TYPE 


,MSG08 


*<15X12> ASCII PARAMs 




TYPE 




IPRINTOUT ASCII PARAM 



MAINDEC-ll-DZITA-D 



DZITAD. 


Pil 01 


-DEC- 7 6 


1U00 


926 


003704 


000000 




927 


003706 


104400 


001526 


928 








929 


003712 


104404 




930 


003714 


001604 




931 


003716 


012702 


001604 


932 


003722 


122712 


000015 


933 


003726 


001407 




934 








935 


003730 


013703 


003704 


936 


003734 


112223 




937 


003736 


122712 


000015 


938 


003742 


001374 




939 


003744 


105013 




940 








941 








942 


003746 


020427 


011000 


943 


003752 


001461 




944 


003754 


000137 


003464 


945 








946 








947 








948 


003760 


017701 


175532 


949 


003764 


042777 


000100 


950 


003772 


042701 


177700 


951 


003776 


022701 


000007 


952 


004002 


001013 




953 


004004 


022737 


000176 


954 


004012 


001003 




955 


004014 


052737 


000001 


956 


004022 


052777 


000100 


957 


004030 


000002 




958 


004032 


022701 


000077 


959 


004036 


001014 




960 


004040 


012700 


001476 


961 


004044 


012710 


001604 


962 


004050 


017737 


004744 


963 


004056 


01773'' 


004740 


964 


004064 


000137 


001374 


965 








966 


004070 


022701 


000012 


967 


004074 


001002 




968 


004076 


000137 


003254 


969 








970 


004102 


104400 


010155 


971 


004106 


000005 




972 


004110 


105227 


oooooo 


973 


004114 


0013*'5 




974 


004116 


022737 


000176 


975 


004124 


001007 




976 


004126 


052737 


000002 


977 


004134 


104400 


007350 


978 


004140 


104422 




979 


004142 


000417 




980 


004144 


104400 


007390 


981 


004150 


105777 


175340 
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TYPE 


,0UES 






GETSTR 






{GET ASCII INPUT AND 


IBUF 






|PUT IT HERE 


MOV 


•IBUF, 


R2 


ISETUP POINTER 


CMPB 


*15, 


(R2) 


fWAS NEW DATA EN(ERED? 


BEQ 


GETEX 




j BR IF NO 


MOV 


ARIA, 


R3 


I SETUP DEST. POINTER 


MOVB 


(R2H, 


(R3H 


IMOV INPUT TO DEST. 


CMPB 


815, 


(R2) 


; LAST DIGIT? 


BNE 


,-6 




ILOOP IF NO 


CLRB 


(P3) 




I INSERT ALL ZERO CHAR 


CMP 


R4, 


IVZSR 


f WAS THIS THE VARIABLE 


BEQ 


SWPRNT 




I BR IF YES 


JMP 


GET IT 




1 GET ANOPHER 



GETEX I 



I TTY INTERUPTS HERE WHEN MODULE IS RUNNING. 



175522 



011044 



011042 
175464 



001502 
001504 



011044 

011042 



MOV 


•TKB,R1 


ICLEAR TTY BUFFER 


BIC 


«100,»TK8 


f RESET INT, ENABLE 


BIC 


•177700, Rl 


fSTRIP JUNK 


CMP 


• 7,R1 




BNE 


21 




CMP 


•SWFEG, SWR 




BNE 


IS 




BIS 


•BIT0,FLAG 




BIS 


•lOOifTKS 




RTI 






CMP 


•'?, Rl 


MS IT ? 


BNE 


NOQ 


J BR IF NO 


MOV 


»DMPL8T,R0 


j SETUP DUMP LIST 


MOV 


• IBUF, (RO) 


|T0 PRINTOUT INPUT BUFFER 


MOV 


IIRDA, .RX 


I IF SWITCH REG, «0 PRINT RX 


MOV 


fIXDA, .TX 


> " " ■ " PRINT TX 


JMP 


Li 


I AND GO PRINT IT 


CMP 


f 12, Rl 


IIS IT LINE FEED? 


BNE 


RSTART 


J BR IF NO 


JMP 


BEGIN 


I RESTART 


TYPE 


, MFILL 




RESET 






INCB 


#0 


I DELAY HERE FOR AWILE 


BNE 


• •4 




CMP 


•8WREG, SWR 




BNE 


XftWPMT 




BIS 


•BIT1 ,FLAG 




TYPE 


,MSG09 




SETSWI 






BR 


REST 




TYPE 


,MSG09 


!<15><12> SET SWITCHES 


TSTB 


ITK8 


} WAIT FOR TTY INPUT 
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982 


004154 


100375 








BPL 


• -4 




J LOOP 


983 


004156 


017702 


175334 






MOV 


0TKb, R2 




} RESET DONE FLAG 


984 


004162 


017746 


004656 






MOV 


»SWR# -(SP) 






985 


004166 


004037 


006350 






JSR 


R0,$B2O16 




I PRINTOUT SWITCHES 


986 


004172 


104400 


001536 






TYPE 


, CRLF 






987 


004176 


000401 








BR 


.♦4 




J SKIP OVER HALT 


988 
989 












SET 


SWITCH OPTIONS 






990 




















991 




















992 


004200 


000000 






SWRSETI 


HALT 


;HALT FOR 


SWITCH SETUP 


993 














jSWOO-ONE 


WAY 


OUT 


994 














|SN01«0NE 


WAY 


IN 


995 














|SW02«EXTERNAL LOOPBACK 


996 














jSW03*INTERNAL LOOPBACK 


997 














|5W04*LOOP 


ON 


DATA 


998 














;SW05*MONZTOR 


INPUT 


999 














;SW06bM0NIT0R 


OUTPUT 


1000 














iSW07sNO DATA 


COMPARE 


1001 














jSW08«EXTERNAL DATA 


1002 














I SW09&DATA 


SELECT 


1003 














jSUIObDATA 


SELECT 


1004 














;SW11«DATA 


SELECT 


1005 














|SW12« 






1 006 














jSW13*INHIBIT 


ERROR TYPEOUTS 


1 007 














f SW14«LOOP 


ON 


TEST 


1008 














I SW15*HALT 


ON 


ERROR 


1009 




















1010 


004202 


012737 


004210 


003462 


REST! 


MOV 


f RESTRT, ILPADK 


; SETUP LOOP 


1011 


004210 


017701 


004630 




RESTRTt 


MOV 


§SWP,R1 






1012 


004214 


000301 








SWAB 


Rl 






1013 


004216 


032777 


000017 


004620 




BIT 


ll7,fSWR 




}WAS SOME MODE SELECTED? 


1014 


004224 


001003 








BNE 


.♦10 




I BR IF YES 


1015 


004226 


1 04400 


007637 






TYPE 


,MSG2l 




}<15><12>NO MODE SELECTED, 


1016 


004232 


000723 








BR 


RSTART 




;GO GET SWITCH REGISTER. 


1017 


004234 


042701 


177761 






BIC 


1177761. Rl 




jSTRIP JUNK 


1018 


004240 


016137 


001564 


011022 




MOV 


DATU), IXDA 




1 SETUP INIT DATA ADDR FROM TABLE 


1019 


004246 


005701 








TST 


Rl 




j VARIABLE DATA SPECIFIED? 


1020 


004250 


001010 








BNE 


SUXCC 




j BR IF NO 


1021 


004252 


032777 


000400 


004564 




BIT 


•400, 0SWR 




I USE EXTERNAL DATA? 


1022 


004260 


001004 








BNE 


SUXCC 




;BR IF YES 


1023 
1024 










; 


GET 1 


VARIABLE DATA 






1025 




















1026 


004262 


104400 


007372 






TYPE 


,MSG10 




*<15><12> ENTER DATA <15><12> 


1027 


004266 


104404 








GETSTR 




;GET DATA 


1028 


004270 


002604 








VDB 






; AND PUT IT HERE 


1029 


004272 


012737 


001604 


011020 


SUXCCl 


MOV 


SIBUF, IRDA 




j SETUP READ BUFFER ADDR 


1030 




















1031 


004300 


032777 


000400 


004536 




BIT 


#400, 9SWR 




j EXTERNAL DATA? 


1032 


004306 


001403 








BEO 


SWHNXT 




J BR IF NO 


1033 


004310 


012737 


002604 


011022 




MOV 


t VDB, IXDA 




; SETUP BUFFER ADDRESS 


1034 


004316 








SWRNXTS 










1035 


004316 


012737 


003760 


000060 




MOV 


•TTYINT, tl60 




I SETUP TTY VECTOR 


1036 


004324 


012737 


000340 


000062 




MOV 


•340, 0*62 




t 


1037 


004332 


012777 


000100 


175154 




MOV 


•100, 8TKS 




; AND ENABLE INTERRUPTS 
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1038 004340 012702 001604 MOV SIBUF, R2 

1039 004344 005022 CLRIbl CLK (R2) + jCLEAR INPUT BUFFER 

1040 004346 022702 002004 CMP »IBUF*200,R2 

1041 004352 001374 BNE CLRIB 
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SEQ 0023 



1042 










1 a#® 




1043 










1 SETUP TIMER • 




1044 










} 




1045 
1046 


004354 


012737 


000060 


006334 


SUTIMEt MOV 


• 60, M5EC8 


1 PRESET COUNTER 


1047 


004362 


012737 


006312 


000100 


MOV 


•TIMER, 100 


J 5&TUP LINE, CLUCK VE.CTUH 


1048 


004370 


012737 


000340 


000102 


MOV 


1340, 102 


jAND PRIORITY 


1049 


004376 


012737 


004422 


000004 


MOV 


•NOLC, 4 


fOCalUF duo LKKUK VCiwTUK 


1050 


004404 


012737 


000340 


000006 


MOV 


•340* 6 


J 5t I Ur PHIUKIT* TO 7 


1051 


004412 


052737 


000100 


177546 


BIS 


• 100, 177546 


t ENABLE LINE CLOCK 


1052 


004420 


000441 






BR 


NORTC 




1053 
















1054 










;HUS 


ERROR RETURNS HERE 


IF NO LINE CLOCK 


1055 
















105b 


004422 


012737 


006312 


000104 


NOLCl MOV 


•TIMER* 104 


; SETUP RTC VECTOR 


1057 


004430 


0127'" 


000340 


000106 


MOV 


•340, 106 


;AND PRIORITY 


1058 


004436 


012* 7 


004472 


000004 


MOV 


• IS, 4 


t SC. TUP BUo &KKQH VfcC TOR 


1059 


004444 


0127 J , 


000340 


000006 


MOV 


•340, 6 


;SET PRIORITY 


1060 


004452 


012737 


003100 


172542 


MOV 


•1600., 172542 


; SET COUNTER BUFFER, 


1061 


004460 


012737 


0001 1 1 


172540 


MOV 


•111, 172540 


; ENABLE REAL TI ME TIME CLOCK 


1062 


004466 


000240 






NOP 




J WAIT 


1063 


004470 


000415 






BR 


NORTC 


^CONTINUE, 


1064 


004472 


012737 


0045 1 6 


000100 


1SI MOV 


• 2S, 100 


JTHl uol CLUCK 


1065 


004500 


104414 


000000 




STPS, 


PRTYO 


■ i nyco til a 
; bUWt-H PSW 10 


1066 


004504 


005227 


000000 




3$: INC 


»0 




1067 


004510 


001 375 






BNE 


3S 




1068 


004512 


104400 


007570 




TYPE, 


MSG19 


;NO CLOCK AVAILABLE 


1069 


004516 


012737 


006312 


000100 


2S! MOV 


•TIMER, 100 




1070 
















107 1 


004524 


0001 37 


0045 30 




NORTCr JMP 


.♦4 


; SPARE JUMP 


1072 


004530 


012737 


000006 


000004 


MOV 


#6,8S4 


;SET TRAP VECTOR 


1073 


004536 


005037 


000006 




CLP 


P S 6 


;SET BUS ERROR VECTOR 


1074 


004542 


012706 


001070 




MOV 


•STACK, SP 


; SETUP STACK 


1075 


004546 


104414 


000000 




STPS, 


PRTYO 




1076 


00455 2 


012737 


006350 


011030 


MOV 


SSB2016,B2016 


fSETUP BIN TO OCT ADDR 


1077 
















1078 
















1079 










; »»««»•««**»««««*•*»*«»»#»#***•»*«•*»«»•**»»*«»*««#*•*»«*#»«#•»•« 


1080 










j DO TESTING NOW 




1081 










; *»««#«**««#»«**«»*»»«#*«»*»*«•*»*«««#**»«*•*•»»*»«««*«*•#«***•«* 


1082 


004560 


0327 37 


020000 


00156 2 


BIT 


•20000, FLAGS 


; MAS A DN1 1 SETUP 


1083 


004566 


001402 






BEQ 


DMCHK 


;BP IF NO 


1084 


004570 


004737 


010200 




JSR 


PCDNGO 


;GO TO DN11 ISR 


1085 
















1086 


004574 


032737 


040000 


001562 


DMCHK: BIT 


•40000, FLAGS 


jWAS A DM11-B SETUP? 


1087 


004602 


001402 






BEQ 


V I GO 


; BR IF NO 


1088 


004604 


004737 


010422 




JSR 


PC , DMBGO 


;GO TO DM11-B ISR 


1089 
















1090 










;»*»«»«**««»»»*»**»**#*•*««•»#*****»* 


1091 










I GOTO 


THE MODULE AND RUN 


* 


1092 










; ************************************ 


1093 
1094 


004610 


004777 


004222 




VIGO: JSR 


PC,«»ISH*36 


jGO TO ISR 
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1095 










• ###♦####•»*»«##♦###*#####•»##*####»#*##•#*♦»###*•##*##♦#*#*#•### 


1096 












END OF 


PASS ROUTINE 




1097 










• **************************************************************** 


1098 


004614 


005237 


004774 




eop: 


INC 


SPASS 


; INCREMENT PASS COUNTER 


1099 


004620 


005746 








TST 


-(SP) 


jPUSH DOWN AND PROTECT STACK. 


1 100 


004622 


104416 








KBDIN 






1101 


004624 


032777 


010000 


004212 




BIT 


»SW12,PSWR 


JINHIBIT TYPEOUTS? 


1102 


004632 


001034 








BNE 


2S 


1 BP IF YES 


1103 


004634 


104400 


00741 1 






TYPE 


,MSG11 


;<15X12> END OF PASS 


1104 


004640 


013746 


004774 






MOV 


SPASS, -(SP) 




1 105 


004644 


004037 


006350 






JSR 


R0,SB201b 


5PRINTOUT PASS COUNT 


1 106 


004650 


104400 


001536 






TYPE 


,CRLF 




1107 


004654 


032700 


000002 






BIT 


80WI,MODE 


SSKIP TRANSMIT TYPEOUT IF OWI 


1 108 


004660 


001012 








BNE 


3S 


j BR IF YES 


1109 


004662 


104400 


010060 






TYPE 


, MSG26 


; TRANSMITTED DATAs 


1110 


004666 


013737 


01 1022 


004676 




MOV 


IXDA,4S 


:SET POINTER TO TXBUF 


lilt 


004674 


104400 








TYPE 




; TYPE TXBUF FER 


1112 


004676 


000000 






4s: 









1113 


004700 


032700 


000001 






BIT 


•own, MODE 


jSKIP RECEIVE TYPEOUT IF OWO 


1114 


004704 


001007 








BNE 


2$ 


jBR IF YES 


1115 


004706 


104400 


010106 




3s: 


TYPE 


,MSG27 


j RECEIVED DATAs 


1116 


004712 


013737 


011020 


004722 




MOV 


IRDA,5S 


jSET POINTER TO RXBUF 


1117 


004720 


104400 








TYPE 




;TYPfc RXBUFFER 


1118 


004722 


000000 






5s: 









1119 


004724 


032777 


040000 


004112 


2s: 


BIT 


«BIT14,?SWR 


I LOOP ON TEST? 


1120 


004732 


001005 








BNE 


IS 


;BR IF NO... 


1121 


004734 


016600 


000002 






MOV 


2(SP),R0 


j GET RETURN ADDRESS 


1122 


004740 


104414 


000000 






STPS, PRTYO 




1123 


004744 


0001 10 








JMP 


(RO) 


I GO BACK TO MODULE. 


1124 


004746 


012706 


001070 




is: 


MOV 


•STACK, SP 


; RESET THE STACK POINTER. 


1 125 


004752 


013700 


000042 






MOV 


9«42, RO 


; GET MONITOR ADDRESS 


1126 


004756 


001404 








BEQ 


SDOAGN 


;BR IF NONE 


1127 


004760 


004710 








JSR 


PC(RO) 


jGO TO MONITOR 


1 128 


004762 


000240 








NOP 




jSAVE ROOM FOR 


1129 


004764 


000240 








NOP 




;ACT-lt 


1130 


004766 


000240 








NOP 






1131 


004770 


000137 


000200 




8D0AGN j 


JMP 


0(200 


1 RESTART TEST 


1132 


004774 


000000 






SPASS: 









1133 


















1134 


















1135 










; **************************************************************** 


1 136 










1 


SUBROUTINE TO INPUT OCTAL WORD FROM OPERATOR 


1137 










; **************************************************************** 


1 1 38 


004776 


011046 






getany: 


MOV 


(RO), -(SP) 


;PUT WORD ON STACK 


1139 


005000 


004037 


006350 






JSR 


R0,$B2O16 


; AND TYPE IT 


1 140 


005004 


104400 


001526 






TYPE 


,QUES 




1141 


005010 


011037 


001544 






MOV 


(RO),WORK 


j PRESET FOR DEFAULT (CR) 


1142 


005014 


104406 


001544 




ANYMOR: 


ACCEPT 


, WORK 


; OCTAL READIN 


1143 


005020 


013710 


001544 






MOV 


WORK, (RO) 


jMOVE IT TO ISR 


1144 


005024 


005720 






ANYEXt 


TST 


(RO)* 


jBUMP POINTER 


1145 


005026 


000240 








NOP 






1146 


005030 


000207 








RTS 


PC 


j SUB/ROUTINE EXIT 


1147 


















1148 










1 »«••*«•»•«#»•«••»«••»»««•••«••••«*«*•••«•»••«««•»«»»••#•«•••«»•• 


1149 










: 


ERROR 


HLT HANDLER 




1 150 










} 



MAINDEC-U-DZXTA-D INTERPROCESSOR TEST PROGRAM MACt 1 1 27(1006) 01-DEC-76 lit 01 PAGE 38 
DZITAD.Pll 01-DEC-76 i 1 1 00 XNTERPR0CE350R TE8T PROGRAM 



SEQ 0021 



1 ISI 


005032 








IHLTt 










1 152 


005032 


104414 


000140 






STPSi 


> PRTY3 




f LOWER PSW PRIOTXTY TO 3 


1153 


005036 


005237 


005730 




fHLOTt 


INC 


IERTTL 




f INCREMENT ERROR COUNTER 


1154 


005042 


001775 








BEQ 


IHLOT 




I MAKE SURE ITS NOT ZERO 


1155 


005044 


011637 


005726 






MOV 


CSP) 


t IHLTAD 


f 8AVE ADDRESS OF HLT 


1 156 


005050 


162737 


000002 


005726 




SUB 


• 2, 


IHLTAD 


} AND BACK IT UP 


1157 


005056 


010146 








MOV 


Rl# 


-CSP) 


f SAVE Rl 


1158 
1159 


005060 


032777 


020000 


003756 




BIT 


•BIT13, 


• SWR 


I INHIBIT ERR TYPEOUTS? 


1160 


005066 


001070 








BNE 


TRX 




I BR If YES 


1161 
1162 


005070 


104400 


001536 






TYPE 


,CRLF 






1163 


005074 


117701 


000626 






MOVB 


9IHLTAD 


*R1 


f EXTRACT HLT CODE 


1164 


005100 


006301 








ASL 


Rl 




1 AND ALIGN IT 


1165 


005102 


016137 


005270 


005112 




MOV 


EMTAB(R1)#,*10 


j GET HEADER ADDRESS 


1166 


005110 


104400 


005320 






TYPE 


,EMO 




J AND PRINT HEADER 


1167 


005114 


104400 


007430 






TYPE 


/MSG12 




I < AT LOC > 


1168 


005120 


013746 


005726 






MOV 


IHLTAD* 


•(SP) 


I GET HLT ADDRESS 


1169 


005124 


004037 


006350 






JSR 


ROf IB2016 


f AND PRINT IT 


1170 


005130 


005701 








TST 


Rl 




I HLT CODE a 0? 


1171 


005132 


001446 








BEQ 


TRX 




I BR If YES 



1172 



1174 


005134 


022701 


000016 


CMP 


f 16* Rl 


IIS IT HLT*7? 


1175 


005140 


001023 




BNE 


18 


I BR IF NO 


1176 


005142 


005702 




TST 


R2 


1 PRINTOUT BAD DATA? 


1177 


005144 


001406 




BEQ 


21 


J BR IF NO 


1178 


005146 


104400 


007767 


TYPE 


»M8G23 


!< BAD DATAa > 


1179 


005152 


110246 




MOVB 


R2»-(SP) 


I GET OATA 


1180 


005154 


004037 


006336 


JSR 


R0*SB2OCT 


I AND PRINT IT 


1181 


005160 


003 




• BYTE 


3 




1182 


005161 


001 




.BYTE 


1 




1183 


005162 


005703 




2lt TST 


R3 


I PRINT OUT GOOD DATA? 


1184 


005164 


001410 




BEQ 


38 


1 BR IF NO 


1185 


005166 


104400 


010003 


TYPE 


#MSG24 


f< GOOD DATAa > 


1186 


005172 


110346 




MOVB 


R3#-(SP) 


> GET DATA 


1187 


005174 


004037 


006336 


JSH 


R0,SB20CT 


} AND PRINT IT 


1188 


005200 


003 




.BYTE 


3 




1189 


005201 


001 




• BYTE 


1 




1190 


005202 


104400 


001536 


TYPE 


#CRLF 




1191 


005206 


000420 




3SI BP 


TRX 




1192 














1193 














1194 


005210 


005702 




111 TST 


R2 


IPPINTOUT RCV CSR? 


1195 


005212 


001405 




BEQ 


TP3 


;BP IF NO 


1196 


005214 


104400 


007441 


TYPE 


i M5G1 3 


j < RCV CSRa> 


1197 


005220 


010246 




MOV 


R2# -CSP) 


; GET DATA 


1198 


005222 


004037 


006350 


JSR 


R0#SB2O16 


J AND PRINT IT 


1199 


005226 












1200 


005703 




TR3I TST 


R3 


I PRINTOUT XMIT CSR? 


1201 


005230 


001407 




BEQ 


TRX 


f BR IF NO 


1202 


005232 


104400 


007453 


TYPE 


,MSG14 


t < XMIT CSRa> 


1203 


005236 


010346 




MOV 


R3# -CSP) 


;GET DATA 


1204 


005240 


004037 


006350 


JSP 


R0»$B2016 


; AND PRINT IT 


1205 


005244 


104400 


001536 


TYPE 


#CRLF 
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SITAD, 


Pll i 


Dl-DEC-76 


1 1 too 




INTERPROCESSOR 


TEST PROGRAM 


1207 


005250 


032777 


100000 


003S66 


TRXl 


BIT 


•RIT15, 8SWR f HALT ON ERROR? 


1208 


005256 


001401 








BEQ 


HLTX J BR IF NO 


1209 


005260 


000000 








HALT 




1210 
















1211 


005262 


104416 






HLTXl 


KBDIN 




1212 


005264 


012601 








MOV 


(SPH, Rl j RESTORE Rl 


1213 


005266 


000002 








RT1 


f AND RETURN TO PROGRAM 


1214 
1215 


005270 


005320 






EMTABt 


EMO 




1216 


005272 


005333 








EMI 




1217 


005274 


005343 








EM2 




1218 


005276 


005363 








EM 3 




1219 


005300 


005407 








EM4 




1220 


005302 


005422 








EM5 




1221 


005304 


005446 








EM6 




1222 


005306 


005542 








EM7 




1223 


005310 


005565 








EM10 




1224 


005312 


005642 








EMU 




1225 


005314 


005667 








EM12 




1226 


005316 


005711 








EM13 




1227 


















005320 


051105 


047522 


020122 


EMOl 


•ASCXZ 


"ERROR HALT" 




005333 


127 


044501 


044524 


EMI t 


•ASCIZ 


■WAITING" 




005343 


127 


044501 


044524 


EM2I 


.ASCIZ 


"WAITING TO XMIT" 




005363 


104 


026516 


030461 


EMJt 


•ASCIZ 


"DN-il NOT AVAILABLE" 




005407 


104 


030516 


026461 


EM4t 


•ASCIZ 


"DN11-ERROR" 




005422 


047104 


030461 


041440 


EM5S 


•ASCXZ 


"DNU CALL ABANDONED" 




005446 


041522 


020126 


052502 


EM6I 


•ASCIZ 


"RCV BUFFER FULL* END OF MESSAGE CHARACTER(001 ) 




005542 


040504 


040524 


041440 


EM7I 


•ASCIZ 


"DATA COMPARE ERROR" 




005565 


105 


051122 


051U7 


EM10I 


.ASCIZ 


"ERROR RCV CSRaCONTENTS OF SELECT REGISTER" 




005642 


047125 


054105 


042520 


EMI 1 1 


•ASCXZ 


"UNEXPECTED INTERRUPT" 




005667 


116 


046530 


050040 


EM12I 


•ASCIZ 


"NXM PRINCIPAL CAR" 




005711 


116 


046530 


040440 


EM13I 


•ASCXZ 


"NXM ALT CAR" 






005726 








• EVEN 






005726 


000000 






8HLTADI 







1228 


005730 


QOOOOO 






8CRTTLI 
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BEQ 0030 



1229 








mo 








1231 








1232 








1233 








1234 








1235 


005732 


01 1646 




1236 


005734 


016666 


000004 


1237 


005742 


105777 


173546 


1238 


005746 


100375 




1239 


005750 


017737 


173542 


1240 


005756 


042737 


177600 


1241 


005764 


013766 


001542 


1242 


005772 


000002 




1243 








1244 








1245 








1246 








1247 








1248 








1249 








1250 


005774 


011602 




1251 


005776 


012201 




1252 


006000 


010216 




1 253 








1254 


006002 


104402 




1255 


006004 


104400 


001542 


1256 


006010 


122726 


000136 


1257 


006014 


00101 1 




1258 








1259 


006016 


104406 


001544 


1260 


006022 


113721 


001544 


1261 


006026 


122737 


000136 


1262 


006034 


001370 




1263 


006036 


000761 




1264 


006040 






1265 


006040 


113721 


001542 


1266 


006044 


022737 


000015 


1267 


006052 


001353 




1268 


006054 


112721 


000012 


1269 


006060 


104400 


001537 


1270 


006064 


112721 


000001 


1271 


006070 


112721 


000177 


1272 


006074 


112721 


000177 


1273 


006100 


112721 


000177 


1274 


006104 


112721 


000177 


1275 


0061 10 


10501 1 




1276 


0061 12 


000002 




1277 









}«*•«««*»•«••«••»•«»*•*»•*••«•»*•»•«•••»•«*•••*«*••*»••••»•««**•• 

I READ A CHAR, ROUTINE 

I •»•««•»«***»»»»»««*»•««*««*»«««•«««»««««•»•»»««»«»«*•*••••#»•#•• 



CALLs 



GETCHR 



9READCI 



001542 

001542 
000004 



{INPUT A CHAR FROM TTY 

I RETURNS HERE WITH CHAR UN STACK 
I PUSH THE PC 
fSAVE THE PS 
{IS RECEIVE DONE 
J LOOP IF NO 
; SAVE THE CHAK. 
; (.STRIP JUNK 
J PUT CHAR ON STACK 
{EXIT 

} *««•««•«#•»»»»*•»***»»•»#•«»#•« 0«»*#**««*»*«««**#««»tt«»*«**«*«^« 

I READ A STRING ROUTINE 

; *«*«*««»«««««•««««»»*«»««*•*«**«»*««»»«*«•••««««*»»«•«««*»«••*•• 



MOV 

MOV 

TSTB 

BPL 

MOV 

BIC 

MOV 

RTI 



(SP),«(SP) 

4(SP),2(8P) 

PTKS 

,»4 

9TKB iSCHAP 
•177600, SCHAR 
SCHAR, 4(SP) 



OCTl 



CALLa 


GETSTR 




I INPUT A STRING OF CHARS FROM TTY 




ADDR 


I TO THIS 


\ ADDRESS 








j TERMINATE INPUT WITH LINE FEED 


MOV 


(SP), 


R2 


| SETUP ADDRESS OF INPUT BUFFER 


MOV 


(R2)*, 


Rl 


{INCREMENT RETURN ADDRESS 


MOV 


R2, 


(SP) 


{ AND PUT BACK ON STACK 


GETCHR 






{ GET A CHAR 


TYPE 


, SCHAR 






CMPB 


3136, 


(SP)* 


|IS IT BINARY DELIMITER 


BNE 


GOTIC 




IBP IF NO 


ACCEPT 


,SWORK 




{ GET OCT. CHAR 


MOVB 


SWORK, 


(Rl)* 


1 STORE OCT, CHAR. 


CMPB 


1136, SCHAR 


{TERMINATORsBIN. DELIMITER? 


BNE 


OCT 




; BH IF NO 


BR 


GETIC 




1 


MOVB 


SCHAR, 


(Rl)* 


{ STORE CHAR. IN BUFFER 


CMP 


#15, 


SCHAR 


J IS IT END OF INPUT (CAR. RETURN) 


BNE 


GETIC 




I BR IF NO 


MOVB 


•12, (Rl)* 




TYPE 


* LK 




I TYPE A LINE FEED 


MOVB 


•00l,(Rl)+ 


j INSERT RX TERM, 


MOVB 


8177, 


(Rl)* 


I AND A FILL 


MOVB 


8177, 


(Rl)* 


{ INSERT ANOTHER FILL 


MOVB 


#177, 


(PI)* 


I INSERT 3RD FILL 


MOVB 


8177, 


(Rl)* 


; INSERT 4TH FILL 


CLRB 


(Rl) 




j PUT ZEROS AT END 


RTI 
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1278 








i »•««»»««««««»«»»«*••»«««»«««««*»**»«»«*««»«•*•#» 


1279 








I ROUTINE TO ACCEPT AN OCTAL 


NUMBER f ROM THE TTY 


1280 








{CALL: 






1281 








{ ACCEPT 


, ADDR 


{PUT OCTAL NUMBER IN ADDR 


1282 
1283 


006114 






I 

SACCEPTl 






1284 


0061 14 


010046 




MOV 


RO,-(SP) 


{SAVE PO 


1285 


006116 


010146 




MOV 


R1,-(SP) 


{ SAVE Rl 


1286 


006120 


010246 




MOV 


R2,-(SP) 


{SAVE R2 


1287 


006122 


010346 




MOV 


R3,-(SP) 


;SAVE R3 


1288 


006124 


016600 


000010 


MOV 


10(SP),R0 


I GET ADDRESS OF WHERE TO PUT NUMBER 


1289 


006130 


005001 




lit CLR 


Rl 


{CLEAR PARTIAL NUMBER 


1290 


006132 


012702 


000006 


MOV 


06, R2 


{MAX, 1 OF DIGITS ALLOWED 


1291 


006136 


104402 




2SI GETCHP 




; GET ONE CHARACTER 


1292 


006140 


112603 




MOVB 


(5P)*,R3 


; AND PUT IT IN R3 


1293 


006142 


110337 


006310 


MOVB 


R3,6$ 




1294 


006146 


104400 


006310 


TYPE 


,6$ 


; ECHO THE CHARACTER 


1295 


006152 


022703 


000025 


CMP 


125, R3 




1296 


006156 


001451 




BEQ 


8$ 




1297 


006160 


022703 


000015 


CMP 


#15, R3 


fWAS THIS CHARACTER A "CR"? 


1298 


006164 


001427 




BEQ 


5$ 


I BR IF YES 


1299 


006166 


022703 


000040 


CMP 


»40, R3 


{WAS "SPACE" HIT? 


1300 


006172 


001433 




BEQ 


7S 


J BR IF YES 


1301 


006174 


022703 


000136 


CMP 


#136, R3 


{WAS » " " HIT? 


1302 


006200 


001430 




BEQ 


7S 


{ BR IF YES 


1303 


006202 


032703 


000110 


BIT 


#110, R3 


I INSURE THE CHARACTER IS 


1304 


006206 


001011 




BNE 


4S 


{A DIGIT BETWEEN AND 7, 


1305 

1306 


006210 


005302 




DEC 


R2 


1 

{CHECK NUMBER OF CHARACTERS 


1307 


006212 


002407 




BLT 


46 


} BR IF TO MANY 


1308 


006214 


006301 




ASL 


Rl 


| POSITION PARTIAL NUMBER 


1309 


006216 


006301 




ASL 


Rl 


) FOP THIS DIGIT 


1310 


006220 


006301 




ASL 


Rl 




1311 


006322 


042703 


177770 


BIC 


»-C<7>,R3 


I GET RID OF THE ASCII JUNK 


1312 


006226 


050301 




BIS 


R3,R1 


{COMBINE THIS DIGIT WITH PARTIAL 


1313 


006230 


000742 




BR 


2S 


|G0 GET ANOTHER DIGIT 


1314 


006232 


104400 


001526 


43 i TYPE 


,QUES 


{ TYPE "7" 


1315 


006236 


104400 


001536 


TYPE 


#CRLF 


{ TYPE CARPAGE RETURN AND LINE FEED. 


1316 


006242 


000732 




BR 


IS 


{GO START OVER 


1317 


006244 


104400 


001537 


SSI TYPE 


, LF 


{ FOLLOW "CR" WITH A "LF" 


1318 


006250 


022702 


000006 


CMP 


»6,R2 


{ WERE ANY DIGITS INPUT 


1319 


006254 


001002 




BNE 


9 +6 


{BR IF YES 


1320 


006256 


013001 




MOV 


»(R0)*,R1 


{ USE OLD DATA 


1321 


006260 


005740 




T8T 


»(R0) 


{BACKUP R0«» 


1322 


006262 


010130 




7SI MOV 


R1,»(R0)* 


{PASS THE NUMBER TO THE USER 


1323 


006264 


010066 


000010 


MOV 


R0,10(SP) 


I SET FOR RETURN 


1324 


006270 


012603 




MOV 


(SP)*,R3 


{ RESTORE R3 


1325 


006272 


012602 




MOV 


(SP)*,R2 


{ RESTORE R2 


1326 


006274 


012601 




MOV 


(6P)+,R1 


1 RESTORE Rl 


1327 


006276 


012600 




MOV 


(8P)*,R0 


{ RESTORE RO 


1328 


006300 


000002 




RTI 






1329 


006302 


104400 


010150 


8tl TYPE, 


CTLU 




1330 


006306 


000710 




BR 


IS 




1331 


006310 


000 


000 


611 .BYTE 


0,0 


{ STORAGE FOR ASCII CHAR, AND TERMINATOR 
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5EQ 00J2 



1332 
















1333 










1 


CLOCK INTERRUPT ROUTINE 


1 334 










I ########«#•###•######•••#•###••#*#••##••*•#••#•###•##••#•#*#•#•# 


1333 


0063 1 2 


005337 


006 334 




TIMERl 


DEC 


MSECS fCOUNT 60 CYCLES 


1336 


006316 


001005 








BNE 


TIMEX | BR IF NOT 60 


1 337 


006320 


012737 


000060 


006334 




MOV 


160, MSECS | RESTORE COUNT 


1338 


006326 


005237 


01 1032 






INC 


TIME | INCREMENT SECONDS 


1339 


006332 








timex: 






1 340 


006332 


000002 








RTI 


I RETURN FROM INTERRUPT 


1341 


006334 


AAA AAA 

oooo oo 






MSECS: 







1342 
















1343 










f BINARY 


TO OCTAL (ASCII) AND TYPE 


1 344 










; sbzuli 




HE. Kb TU OtlUr oUrrKboo £bKUS> ABU NUnoliK Uf UilvlTo TU 1 Xrb 


1 345 










| CALL I 






1 346 










J 


MOV 


NUM, • 1 5P J } NUnbbK TO bt Xir&U 


1347 










; 


JSR 


R w ,$d2Uv.T J (. ALL FUR TlPtUUT 


1348 










? 


• BYTE 


N |NSl XU o FUR NUnDtH Ur * ulTo TO TIrL 


1 349 










i 


.BYTE 


M |MbJ OR 


1350 














Jl«XIFfc li&AUAftW itHUO 


1351 














• A i- C II DD DC C.C f.lTAIlTMC 9b'DI|C 


1352 










i 






1353 










I SB201 " 


"■•ENTER 


UCDC 1>f1 TV DC - flllT h/ITU TUB" fiftyp DAUHUITTrilC AC TUV I.IQT « U CflP T riD 
HtKb TU T I rt UU 1 W 1 in lite, OANb rAKANb ItKo Aw inb uAal •POUti UK 


1354 










f CALL! 






1 355 










I 


MUV 




1 356 










1 


JSR 


DA e lion 1 


1 357 










t 






1358 










t SB2016 


— -ENTER 


ntnb run 1 1 rLUU < Uf M ID oil nunDCH 


1 359 










J CALL I 






1 360 










t 




NUM. «f £ PI 
HUH, \ Or J 


1361 










; 


J5R 


DA e uini «. 
KU , SO/UlO 


] 362 
















1363 


006336 


1 1 2037 






S B20CT I 




inujTj junuuCiTj j r itftur inb nuiDtH ur uiviio tu lire. 


1364 


006342 


112037 


006541 






MOVb 


1 D A » J. . (C AC 1 1.f. »nii"T TUk 7Von n I.I. KUTTrU 
I PU J t , 9 Ur tub fuCiI inc. itnu r luu Oil Ivn 


1365 


006 346 


000406 








BR 


SB201 


1 366 


006350 


1 127 37 


A A A A A 4 

00001 




SB201 6 • 


MOVB 


*1,$0FILL |SET THE ZERO FILL SWITCH 


1367 


006356 


1 12737 


A A A A #1 A 

00000O 


006543 




MOVB 


S6,$0M0DE+1 ;SET FOR S1X(6) DIGITS 




006364 




A A A AAC 


All AC A A 


SB2U1 : 


MOVB 


#5,$QCNT fSET THE ITERATION COUNT 


1 %t,Q 




010346 








MOV 


P3,-(SP) {SAVE R3 


13/0 




A 1 A A Atft 








MOV 


R4,-(SP) ;SAVL R4 




006 376 


01 0546 








MOV 


R5,-(SP) |SAVE R5 


! m 


UUP1UU 










MOVB 


S0M0DE*-1,R4 ? GET THE NUMBER OF DIGITS TO TYPE 


1373 


A ft A A A A 


A A£ Aft A 








NEG 


R4 




A ft £ A A K 


?tnl 11 


All AAAA 






ADD 


»6,R4 ; SUBTRACT IT FOR MAX. ALLOWED 


1 \it. 


t ! \ 










MOVB 


R4, SOMODE {SAVE IT FOR USE 


1376 


0064 1 6 


113704 


00654 1 






MOVB 


$0FILL,P4 ; GET THE ZERO FILL SWITCH 


1377 


006422 


016605 


000010 






MOV 


10(SP),R5 jPICKUP THE INPUT NUMBER 


1378 


006426 


005003 








CLR 


R3 JCLEAR THE OUTPUT WORD 


1379 


006430 


006105 






ISt 


ROL 


R5 1 ROTATE MSB INTO *C" 


1380 


006432 


000404 








BH 


3$ ;G0 DO MSB 


1381 


006434 


006105 






2$: 


ROL 


R5 ; FORM THIS DIGIT 


1382 


006436 


006105 








ROL 


P5 


1383 


006440 


006105 








ROL 


R5 


1384 


006442 


010503 








MOV 


R5,P3 


1385 


006444 


006103 






3$: 


ROL 


R3 J GET LSB OF THIS DIGIT 


1386 


006446 


105337 


006542 






DECb 


SOMODE t TYPE THIS DIGIT? 


1387 


006452 


10001b 








BPL 


7$ |bR IF NO 
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1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 



»U 01 


i-DEC-76 


in 00 


INTERPROCESSOR 


TEST PROGRAM 




006454 


042703 


177770 


B1C 


#177770, R3 


} GET RID OF JUNK 


006460 


001002 




BNL 


4$ 


; TEST FOR 


006462 


005704 




TST 


R4 


{SUPPRESS THIS 0? 


006464 


001403 




BEO 


5S 


t BR IF YES 


006466 


005204 




481 INC 


R4 


{DON'T SUPPRESS ANYMORE 0'S 


006470 


052703 


000060 


BIS 


l'0,R3 


; MAKE THIS DIGIT ASCII 


006474 


052703 


000040 


5S! BIS 


#' ,P3 


I MAKE ASCII IF NOT ALREADY 


006500 


110337 


006536 


MOVB 


R3,8$ 


,'SAVE FOR TYPING 


006504 


104400 


006536 


TYPE 


,8$ 


yGU TYPE THIS DIGIT 


006510 


105337 


006540 


7$: DECB 


SOCNT 


JCOUNT BY 1 


006514 


003347 




BGT 


2$ 


t BR IF MORE TO DO 


006516 


002402 




BLT 


6$ 


; BR IF DONE 


006520 


005204 




INC 


R4 


; INSURE LAST DIGIT ISN'T A BLANK 


006522 


000744 




BR 


2$ 


;G0 DO THE LAST DIGIT 


006524 


012605 




65 : MOV 


(SP)+,R5 


; RESTORE R5 


006526 


012604 




MOV 


(SP)+,R4 


; RESTORE R4 


006530 


012603 




MOV 


(SP)*,R3 


i RESTORE R3 


006532 


012616 




MOV 


(SP)+,(SP) 


;SET THE STACK FOR RETURNING 


006534 


000200 




RTS 


P0 


t RETURN 


006536 


000 




8$: .BxTE 





; STORAGE FOR ASCII DIGIT 


006537 


000 




.BYTE 





I TERMINATOR FOR TYPE ROUTINE 


006540 


000 




80CNTS .BYTE 





} OCTAL DIGIT COUNTER 


006541 


000 




S0FILL: .BYTE 





* ZERO FILL SWITCH 


006542 


000000 




SOMODE: 




J NUMBER OF DIGITS TO TYPE 








i »«****•»»•««*•*•»»*«»««««»#*»*«•«••##*••«««••«***#*• 








f TRAP HANDLER 






006544 


010046 




STRAPJ MOV 


R0,-(SP) 


fSAVE R0 


006546 


016600 


000002 


MOV 


2(SP),R0 


; GET TRAP ADDRESS 


006552 


005740 




TST 


-(P0) 


{BACKUP BY 2 


006554 


111000 




MOVB 


(R0),R0 


jGET RIGHT BYTE OF TRAP 


006556 


016000 


006564 


MOV 


$TRPAD(R0),R0 


; INDEX TO TABLE 


006562 


000200 




RTS 


R0 


;GO TO ROUTINE 








I TRAP TABLE 












) ROUTINE 






006564 


001100 




STRPADI STYPE 








104400 






TYPE»TRAP+0 




006566 


005732 




SREADC 








104402 






GETCHR«TRAPt2 




006570 


005774 




8READS 








104404 






GETSTRsTRAP+4 




006572 


006114 




SACCEPT 








104406 






ACCEPT»TRAPt6 




006574 


006610 




8RWAIT 








104410 






RWAITsTRAPtIO 




006576 


006620 




tXWAIT 








104412 






XWAITsTRAP+12 




006600 


007042 




.STPS 








104414 






STPSbTRAPtM 




006602 


006732 




,KBDIN 








104416 






KBDINcTRAPtl6 




006604 


007064 




.SUSWR 
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HQ 0634 



1444 




104420 




1445 


006606 


006750 




1446 




104422 




1447 








1 44K 








1449 








1 450 








1451 








1452 


006610 


104400 


007462 


1453 


006614 


000137 


006624 


1454 








1455 


006620 


104400 


007505 


1456 








1457 


006624 


011646 




1458 


006636 


004037 


006350 


1459 








1460 


006632 


104400 


010021 


1461 








1462 


006636 


016646 


000004 


1463 


006642 


016666 


000004 


1464 


006650 


0-16666 


000002 


1465 


006656 


012616 




1466 


006660 


004037 


006350 


1467 








1468 


006664 


104400 


007564 


1469 








1470 








1471 


006670 


000002 




1472 








1473 








1474 








1475 








1476 








1477 








1478 








1479 








1460 


006672 


012737 


006704 


1481 


006700 


000000 




1442 


006702 


000"'7b 




148J 








1484 








1485 








1486 








1487 








1488 








1489 








1490 








1491 


006704 


012737 


006672 


1492 


006712 


012706 


001070 


1493 


006716 


104400 


007616 


1494 


006722 


104414 


000000 


1495 


006726 


00013*7 


000200 


1496 








1497 


006732 


032737 


000001 


1498 


006740 


001437 




1499 


006742 


042777 


000100 



000006 
000004 



011042 
172544 



flU8»R»TRAP+20 
SETSWI«THAP*22 



;«••#•«••*•#«••*«•••#««••*««»«••••••*«•«•••#••««•••«••••»»••••••• 

I SPECIAL PRINTOUT ROUTINES 

) ••#*«••»««#*••••»*•*•••»»«*#««•*«•#•«»»*••*»•««••»•«*••••»#••••* 



IRWAITl 


TYPE 


,M8G15 




!<15><12> WAITING AT LOC <SP> 




JMP 


WAI1P0 






SXWAITt 


TYPE 


#MSGI6 




}<15><12> WAITING FOR CLEAR TO SEND AT LOC <SPX8P> 


WAITPOt 


MOV 


(SP)f 


»(SP) 


1 SETUP ADDRESS Of CALL FOR PRINTOUT 




JSR 


RO*IB2016 


I PRINTOUT ADDRESS 




TYPE 


,MSG25 




I <DMBB LINE STATUS REG* > 




MOV 


4CSP) 


#*(SP) 


IMOV CSR TO BOTTOM OF STACK 




MOV 


4CSP), 


6(3P) 


} MOVE PSW UP A WORD 




MOV 


2(SP), 


4(SP) 


J MOVE PC UP A WORD 




MOV 


CSPH, 


(IP) 


f MOVE CSR UP A WORD 




JSR 


ROi IB2016 


|G0 PRINT CSR 




TYPE 


,MSG18 




;<.><15><12> 










fGIVE IT LINE FEED 




RTI 






; AND RETURN TO CALLER 



;*»«*«*«»«*###»«»*#*•««#•••«««»««*»#•#«*«#*««*•»#•»»#*«•#«•• 

I 

I POWER DOWN ROUTINE. 

j SINCE IN IT IS ISSUED IN A PWR DN/UP SEQUENCE, 
; PROGRAM MUST BE RESTARTED AGAIN, 



IPwKDNs MOV 

HALT 
BR 



•8PwRUP»il24 
,»2 



f ###########♦#############»##•############•#########•######• 

t 

fPQWER UP ROUTINE, 
I MESSAGE "POWER HAS FAILED. 
I PROGRAM WILL BE RESTARTED. 
1 



." WILL BE PRINTED OUT, 



SPWRUPt MOV »gPWRDN»0«24 
MOV #STACK»SP 

TYPE #MSG20 ;<15><12> POWER FAILED. 

STPS,PRTYO 

JMP 91200 



.KBDIN: BIT 
SEQ 
BIC 



tBITOr FLAG 
OUT 

S100#PTKS 



t TEST "G FLAG 
jNO, EXIT 
jCLfcAR TTY IE 
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1500 


006750 


104400 


010131 




• SETSWI t TYPE 


,SWEQ 


; TYPE SWRa 


1501 


006754 


017746 


002064 






MOV 


9SWH#»(SP) 


;SET UP OCTAL TYPEOUT 


1502 


006760 


004037 


006350 






JSR 


RO* SB2U16 


|D0 IT 


1503 


006764 


104400 


010141 






TYPE 


,NEU 


1 TYPE NEWs 


1504 


006770 


017737 


002050 


001544 




MOV 


PSWR, WORK 


}SET UP FOR CR DEFAULT 


1505 


006776 


J04406 


001544 






ACCEPT 


* WORK 


j GET VALUE 


1506 


007002 


013777 


001544 


002034 




MOV 


WORK,®SWR 


? REPLACE IT 


1507 


007010 


032737 


000002 


011042 




BIT 


#BI11,FLAG 


;SEE HOW WE GOT HERE 


1508 


007016 


001005 








BNE 


1$ 


: WRUNG WAY? 


15-09 


007020 


005777 


172472 






T5T 


PTKB 


jCLEAR BUFFER 


1510 


007024 


052777 


000100 


172462 




BIS 


• 100* 9TKS 


; RESET TTY IE 


151 1 


007032 


042737 


000003 


011042 


1$: 


BIC 


SBIT0+BIT1 rFLAG 


;CLEAR FLAG BITS 


1512 


007040 


000002 






OUT: 


RTI 




jEXIT 


1513 
1514 


007042 


042766 


000340 


000003 


.stps: 


BIC 


IPRTY7#2(SP) 


1 CLEAR OUT PRIORITY BITS 


1515 


007050 


057666 


000000 


000002 




BIS 


f»(SP),2(SP) 


jSET NEW PRIORITY 


1516 


007056 


062716 


000002 






ADD 


#2* (SP) 


;SETUP EXIT 


1517 


007062 


000002 








RTI 




jEXIT 


1518 
1519 


007064 


013746 


000006 




.suswr: 


MOV 


6,»CSP) 


; SAVE 6 ON STACK 


1520 


007070 


013746 


000004 






MOV 


4#»(SP) 


f SAVE 4 ON STACK 


1521 


007074 


012737 


007122 


000004 




MOV 


US, 4 


1 SETUP TIMEOUT 


1522 


007102 


012737 


000340 


000006 




MOV 


1340/6 


: SET PRIORITY 


1523 


007110 


022777 


177777 


001726 




CMP 


8"lr@SWR 


; TEST FOR 177570 


1524 


007116 


001402 








BEQ 


2$ 


j NOT ALL l'S 


1525 


007120 


000407 








BR 


38 


fIT'S THERE - EXIT 


1526 


007122 


022626 






1$: 


CMP 


(SP)+#(SP)+ 


| ADJUST STACK AFTER TRAP 


1527 


007124 


012737 


000176 


011044 


281 


MOV 


*SWKEG#SWR 


j REPLACE HARDWARE REGISTERS 


1528 


007132 


012737 


000174 


011046 




MOV 


IDISPREG* DISPLAY 


' f WITH SOFTWARE REGISTERS 


1529 


007140 


012637 


000004 




3@i 


MOV 


(SP)+,4 


| RESTORE 4 


1530 


007144 


012637 


000006 






MOV 


(5P)+,6 


; RESTORE 6 


1531 


007150 


000002 








RTI 




fEXIT 
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SEQ 0036 



1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 



; •*•«»*•««««««••»«•«**•*«*••«••*••••»•«••••«•••••«••••••••••«• 

1 AREA RESERVED FOR MOST ASCIZ MESSAGES. 

; #####♦#•####•###•»»##•#••#••#•##•»•##•##•#*•••♦••••••••••••••• 



007152 


000040 






MSGOOt 


.ASCIZ 


/ / 


007154 


005015 


047111 


042524 


MSGOl I 


.ASCIZ 


<15><12>/INTERFACE TYPE / 


007177 


015 


044412 


051123 


MSG02: 


.ASCIZ 


<15><12>/ISP NOT LOADED! 1/ 


007222 


005015 


052502 


020123 


MSG03 : 


.ASCIZ 


<15><12>/BUS ADDRESSa/ 


007241 


015 


053012 


041505 


MSG04: 


.ASCIZ 


<15><12>/VECT0P ADDRESSa/ 


007263 


015 


050012 


044522 


MSG05: 


.ASCIZ 


<15><12>/PRI0RIT¥s/ 


007277 


015 


050012 


051101 


MSG06: 


.ASCIZ 


<15><12>/PARAMS ll»/ 


007314 


005015 


040520 


040522 


MSG07: 


.ASCIZ 


<15><12>/PARAMS 12a/ 


007331 


015 


040412 


041523 


MSGOB : 


.ASCIZ 


<15><12>/ASCII PARAMa/ 


007350 


005015 


042523 


020124 


MSG09: 


.ASCIZ 


<15><12>/SET SWITCHES.,./ 


007372 


005015 


047105 


042524 


MSG10: 


.ASCIZ 


<15><12>/ENTER DATA/<15><12> 


007411 


015 


042412 


042116 


msgii: 


.ASCIZ 


<15><12>/END OF PASS / 


007430 


040440 


020124 


047514 


MSGl?: 


.ASCIZ 


/ AT LOC / 


0D7441 


040 


041522 


020126 


MSG1 3: 


.ASCIZ 


/ RCV CSRs/ 


007453 


040 


041530 


051123 


MSG14: 


.ASCIZ 


/ XCSRa/ 


007462 


005015 


053440 


044501 


MSG15: 


.ASCIZ 


<15><12>/ WAITING AT LOC / 


007505 


015 


053412 


044501 


MSG16S 


.ASCIZ 


<15><12>/WA1TING FOR CLEAR TO SEND AT LOC / 


007551 


040 


020041 


041440 


MSGl 7 : 


.ASCIZ 


/ I CSRa / 


007564 


006456 


000012 




MSG1RS 


.ASCIZ 


/./<15><12> 


007570 


005015 


047516 


041440 


MSGl 9 : 


.ASCIZ 


<15><12>/N0 CLOCKS AVAILABLE/ 


007616 


005015 


047520 


042527 


MSG20: 


.ASCIZ 


<15><12>/P0UER FAILED../ 


007637 


015 


047012 


020117 


MSG21: 


.ASCIZ 


<15><12>/N0 MODE SELECTED./ 


007663 


015 


044412 


020106 


MSG22 S 


.ASCII 


<15><12>/IF CALLING, DIAL NUMBER/ 


007713 


015 


044412 


020106 




.ASCIZ 


<15><12>/1F ANSWERING, PLACE MODEM IN AUTO-ANSWEM/< 15X1 2> 


007767 


073 


041040 


042101 


MSG23 : 


.ASCIZ 


/; BAD DATAs/ 


010003 


040 


020040 


047507 


MSG24: 


.ASCIZ 


/ GOOD DATAs/ 


010021 


015 


020012 


046504 


MSG25: 


.ASCIZ 


<15X12>/ DMBB LINE STATUS REGISTER* / 


010060 


005015 


051124 


047101 


MSG26 : 


.ASCIZ 


<15X12>/TRANSM1TTED DATA»/<15X1 2> 


010106 


005015 


042522 


042503 


MSG27: 


.ASCIZ 


<15X12>/RECEIVED DATAs/<15><12> 


010131 


015 


051412 


051127 


SWLQ: 


.ASCIZ 


<15><l2>/SWRa / 


010141 


040 


042516 


036527 


NEC! : 


.ASCIZ 


/ NEWa / 


010150 


052536 


005015 


000 


CTLU: 


.ASCIZ 


/-U/<15><12> 


010155 


177 


000177 




MFILL: 
.EVEN 


.ASCIZ 


<177><177> 
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(1) 












1541 






I 


UN- 11 INTERFACE 


SERVICE PARAMS 


1542 












1543 


010160 


047104 000040 


DN : 


.ASCIZ "DN " 




1544 


010164 


175200 


DNBAi 


175200 


;BUi> ADDRESS 


1545 


010166 


000350 


dniv: 


350 


; INTERRUPT VECTOR 


1546 


010170 


000200 


DNPRI: 


200 


; PRIORITY 


1547 


010172 


177777 


DNPAR1 t 


177777 


;NOT USED 


1548 


010174 


177777 


DNPAP2: 


177777 


;NUT USED 


1549 


010176 


010356 


DNPAR3: 


D1ALNO 


1 ADDRESS OF DIAL t 


1550 












1551 












1552 












1553 




100000 




PWlalOOOOO 


t POWER INDICATOR 


1554 




040000 




ACR&40000 


I ABANDON CALL AND RETRY 


1555 




010000 




DLOalOOOO 


; DATA LINE OCCUPIED 


1556 




000040 




DSS840 


; DATA SET STATUS 


1557 




000020 




PNDa20 


; PRESENT NEXT DIGIT 


1558 




000002 




Dpa2 


JDIGIT PRESENT 


1559 




000001 




CRQ=1 


;CALL REQUEST 


1560 
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1561 










t »••««•#•»»«••«•••«•«#««»*««••«•**•«»*•«#•«•*»»#•««•»•»«»**•«**«* 


1562 










; 


START 


OF DN-1 1 CODE 




1563 










i #•#•#######*#•######*#*#####•**###*########•#♦###••#•#•##*###### 


1564 


010200 


013704 


010164 




UNGOs 


MOV 


DNBA, R4 


; SETUP BUS ADDH 


1565 


010204 


005014 








CLR 


(R4) 


; RESET DN-H 


1566 


010206 


005037 


011032 






CLP 


TIME 


; RESET TIMER 


S567 


010212 


032737 


000002 


011032 




BIT 


82, TIME 


J AND WAIT 2 SECS 


156B 


010220 


001774 








BEQ 


.-6 




1569 


010222 


01 2703 


010356 






MOV 


*DIALN0,R3 


1 SETUP DIAL • ADDRESS 


1570 


010226 


01271 4 


000001 






MOV 


8CRQ, 0CSR 


J SET CALL REQUEST 


1571 


010232 


032714 


100000 






BIT 


SPW1, @CSR 


;IS DN AVAILABLE 


1572 


010236 


001 425 








BEQ 


DNL1X 


J! BR IF YES 


157 3 


















1574 


010240 


011402 








MOV 


PCSR, R2 


j SETUP CSR FOR PRINTOUT 


1575 


010242 


005003 








CLR 


R3 




1576 


010244 


104003 








HLT+3 


; PRINTOUT "ON NOT AVAILABLE" 


1577 


010246 


000137 


010200 






JMP 


DNGO 


J RESTART 


1578 


















1570 


010252 


032714 


000200 




DNL1 : 


BIT 


» DONE/ 9CSR 


1 IS DONE FLAG SET? 


1580 


010256 


001775 








BEQ 


DNL1 


JWAIT IF NO 


1581 


010260 


042714 


000200 






BIC 


8 DONE, 9CSP 


; RESET DONF 


1582 


010264 


032714 


140000 






BIT 


8ACP+PWI,pCSR 


;ANY ERRORS? 


158 J 


010270 


001003 








BNE 


DNL1E 


; BR IF YES 


1584 


















1585 


















1586 


010272 


032714 


000020 






BIT 


• PND , 0CSH 


;IS PRESENT NEXT DIGIT SET 


1587 


010276 


001005 








BNE 


DNL1X 


j BR IF YES 


1588 


















1589 


010300 


011402 






DNL1E! 


MOV 


PCSR, P2 


J SETUP CSR FOR PRINTOUT 


1590 


010302 


005003 








CLR 


R3 




1591 


010304 


104004 








HLT+4 




; PR I N TOUT "DN ERROR" 


1592 


010306 


0001 37 


010200 






JMP 


DNGO 


f RESTART 


1593 


















1594 


010312 


1 12364 


000001 




DNL1XS 


MOVB 


IR3) + , HR4) 


7 LOAD NEXT DIGIT 


1595 


010316 


052714 


000002 






BIS 


#DP, PCSR 


;SET DIGIT PRESENT 


1596 


010322 


105713 








TSTB 


(R3) 


jWAS THAT LAST CHAR? 


1597 


010324 


001352 








BNE 


DNL1 


;BP IF NO 


1598 


















1599 


010326 


032714 


000200 




DNL2: 


BIT 


8 DONE, PCSR 


JWAIT FOR DONE FLAG 


1600 


010332 


001775 








BEQ 


DNL2 




1601 


















1602 


010334 


032714 


040000 






BIT 


8ACR, 0CSR 


JrtAS CALL ABANDONED? 


1603 


010340 


001405 








BEU 


DNEX 


,'bR IF NO 


1604 


















1605 


010342 


01 1402 








MOV 


OCSP, R2 


; SETUP CSR FOR PRINTOUT 


1606 


010344 


005003 








CLR 


P3 




1607 


010346 


104005 








HLT+5 




1 PRINTOUT "CALL ABANDONED" 


1608 


010350 


0001 37 


010200 






JMP 


DNGO 


; RESTART 


1609 


















1610 


010354 


000207 






DNtX : 


RTS 


PC 


RETURN TO ITEP 


1611 


















1612 


010356 


03447. 


032467 


031460 


DIALNO: 


.ASCIZ 


"8975030" 


; NUMBER TO DIAL 


1613 


010364 


000060 














1614 


010366 


000000 


000000 


000000 




0,0,0, 


0,0,0 




1615 


010374 


000000 


000000 


000000 
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1616. 






;»**♦«***#•»••»*••*»«#*•»*»»«*«»•»**«•»*«*»»*••»*»*•«»•«*«»•*•*** 


1617 








DMU-B INTERFACE SERVICE PARAMS 


1618 






; »«*»«» 




1619 










1620 










1621 


010402 


046504 000102 


DMB: 


.ASCIZ 'DMB' }ISR NAME 


1622 


010406 


170500 


MBA : 


170500 ;BUS ADDRESS 


1623 


010410 


000310 


IVt 


310 } VECTOR ADDRESS 


1624 


010412 


000200 


PRIOl 


200 } PRIORITY 


1625 


010414 


000000 


PARA I j 


; PARAM »1 


16 26 


010416 


177777 


PARA2 ! 


177777 j PARAM »2 


1627 


010420 


177777 


PARA3: 


177777 ; PARAM 83 


1628 










1629 










1630 










1631 










1632 










1633 










1634 










1635 










1636 










1637 
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SEQ 0040 



1638 








1639 








1640 








1641 


010422 


000240 




1642 


010424 


013704 


010406 


1643 


010430 


005037 


011032 


1644 








1645 








164b 


010434 


052714 


006000 


1647 


010440 


032714 


000020 


1648 


010444 


001375 




1649 


010446 


013714 


010414 


1650 


010452 


052764 


000003 


1651 


010460 


032737 


020000 


1652 


010466 


001002 




1653 


010470 


104400 


007663 


1654 








1655 


010474 


032777 


000005 


1656 


010502 


001444 




1657 








1656 








1659 


010504 


052764 


000004 


1660 








1661 


010512 


032764 


000040 


1662 


010520 


001016 




1663 


010522 


023727 


011032 


1664 


010530 


103770 




1665 


010532 


016446 


000002 


1666 


010536 


032777 


010000 


1667 


010544 


001001 




1668 


010546 


104412 




1669 


010550 


005037 


011032 


1670 


010554 


000756 




1671 








1672 


010556 






1673 








1674 


010556 


012737 


177777 


1675 


010564 


005037 


010616 


1676 


010570 


012737 


000014 


1677 


010576 


062737 


000001 


1678 


010604 


001374 




1679 


010606 


005337 


010620 


1680 


010612 


001371 




1681 


010614 


000207 




1682 








1683 


010616 


000000 




1684 


010620 


000000 




1685 




000001 




1686 




000002 




1687 




000004 




1688 




000004 




1689 




000010 




1690 








1691 








1692 








1693 









1 #•#######•####•#•#••••####••####•#••##•••#•••#•••#•••••••##•••#• 

1 UM-11B INTERFACE SERVICE ROUTINE 

; •*«••••••#•••••••••«»«••*•••#•*«••••••••••••«••••••••••••••••••• 

DMBGOl NOP 

MOV MBA, R4 | SETUP BUS ADUR INDEX 

CLR TIME | RESET TIMER 



000002 
001562 



000342 111 



BIS 
BIT 
bNE 
MOV 
BIS 
BIT 
BNE 
TYPE 

BIT 
BEG 



000002 
000002 
000036 

000300 



STAPTX I BIS 

CTSW: BIT 
BNE 
CMP 
BLO 
MOV 
BIT 
BNE 
XWAIT 

IS! CLR 
BR 



011024 REXl 



010620 
010616 



TEMPI j 
TEMP2* 



*csr 
ecsR 



ics+cm, 

iBUSY, 
.-4 

PAKA1, 9CSR 
#DTR+LE,2(R4) 
120000, FLAGS 
IS 

,MSG22 

•OWO+XLB, 95WR 

REX1 



jfCLEAR DM-U B 
; WAIT TIL FREE 

} SELECT LINE f 

I SET OATA TERM RDY fc LINE ENABLE 
I HAS DNll MADE CONNECTION YET? 
I BR IF YES 

I TYPE "MARE CONNECTION" 

f IS MODE 8 UWO OR XLB 

! BR IF NO 



•RQT5, 2(R4) f SET REQUEST TO SEND 



»CTSt LSTAT(R4> 



836 



CTSOK 
TIME, 
CTSW 

LSTAT(R4),-(SP) 

ISW12, PSWR 
IS 

TIME 
CTSw 



• •1 » SETTLE 

TEMPI 

S14.TEMP2 

II, TEMPI 

.-6 

TEMP2 

.-14 

PC 



I IS CLEAR TO SEND SET? 



MOV 
CLR 
MOV 
ADD 
BNE 
DEC 
BNE 
RTS 




UwOsl 
OWIs2 
TLBa4 
XLBs4 
ILBslO 



RCSR EQUATES 
.EQUIV R4,HCSR 
.EQUIV R4,CSR 



f BR IF YES 
1 30 SECS ELASPED? 
JBR IF NO 

; TYPE CONTENTS OF RCSR 
; INHIBIT TYPEOUTS? 
; BR IF YES 

; PRINTOUT 'WAITING FOR CTS' 

{RESET TIMER 

I WAIT SOME MORE 



>5ET UP DELAY FLAG 



I RETURN TO CONTROL PROGRAM 



MAINDEC-1 1-DZ1TA-D 1 NTERPROCLSSOR TEST PROGRAM MACY11 27(1006) 01-DEC-76 lliOl PAGE 41 

UZITAD.P1 1 01-UEC-76 1U00 DM11-B INTERFACE SERVICE ROUTINE SEQ 0041 



1694 








1695 


tooooo 


RIslOOOOO 


; RING INDICATOR 


1696 


000100 


CFslOO 


;CAHR1ER FLAG 


1697 


000040 


CTSs40 


t CLEAR TO SEND 


1698 


010000 


SRDslOOOO 


ISEC. RECEIVE DATA 


1699 


004000 


CSs4000 


jCLEAR SCAN 


1700 


002000 


CM»2000 


jCLEAR MUX 


1701 


001000 


MMslOOO 


; MA1NT MODE 


1702 


000400 


STEPMOO 


f STEP 


1703 


000200 


DONE&200 


f DONE 


1704 


000100 


IEslOO 


1 INTERRUPT ENABLE 


1705 


000040 


SEs40 


;SCAN ENABLE 


1706 


000020 


BUSY»20 J0UST 




1707 


000017 


LINE«17 


;LINE NUMBER 


1708 








1709 




I LINE STATUS REGGRSTER EQUATES 




1710 


000002 


LSTAT»2 




1711 








1712 


000004 


RQTS84 


; REQUEST TO SEND 


1713 


000002 


DTR=2 


I'DATA TERMINAL READY 


1714 


000001 


LEsl 


1 LINE ENABLE 


1715 
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SEQ 0042 



1716 




01 1000 




,-11000 






1717 






J »•»«*»•*•«••»#»«*»*••«••*««••*•*«*«•««»•«••••»•«#«•««•«»*•»«»#«• 


1718 






1 


THE INTERFACE SERVICE ROUTINE 


IS LOADED HERE 


1719 






} #••#################•##•##••##*#•#####»•#####*•#•##»##•########• 


1720 










> THE FOLLOWING 18 WORDS ARE USED AS 


1721 










1 THE LINKAGE BETWEEN 


THE ISR AND THE 


1722 










^CONTROL PROGRAM. 




1723 














1724 














1725 


011000 




VISRi 








1726 


01 1000 


000002 


ISR: 


.BLKW 2 


1 .ASCIZ "DXX" 




1727 


01 1004 


000001 


BA: 


B BLKW | 


1 175610 


fBUS ADDRESS 


1728 


01 1006 


000001 


VA! 


.BLKW 1 


1 300 


1 VECTOR ADDRESS 


1729 


011010 


000001 


PRIOR* 


,BLKW 1 


1 340 


I PRIORITY 


1730 


011012 


000001 


PARAMl: 


.BLKW 1 


J-l 


; PARAM • 1 


1731 


011014 


aooof 


PARAM2: 


.BLKW ! 


f-1 


jPARAM 12 


1732 


011016 


OOOf 


PARAMJl 


.BLKW 1 


:-i 


; PARAM #3 


1733 














1734 


01 1020 


000001 


IRDAi 


.BLKW % 


J. WORD 


I INITIAL READ DATA ADDRESS 


1735 


011022 


000001 


IXDA: 


•BLKW 1 


J.WQRD 


1 INITIAL XMIT DATA ADDRESS 


17 36 


01 1024 


000001 


SETTLE! 


.BLKW 1 


;.WORD 


1 LINE SETTLE DELAY FLAG 


1737 


01 1026 


000001 


IRCCS 


.BLKW 1 


1. WORD 


; INITIAL RCV CHAR COUNT 


1738 


011030 


000001 


B2016! 


.BLKW 1 


j. WORD 


1 ADDR OF BIN TO OCT TYPE ROUTINE 


1739 


011032 


000001 


TIME: 


.BLKW 1 


j.WORD 


; TIMER 


1740 


011034 


000001 


mode; A: 


.BLKW 1 


y.WORD 


I ADDR OF ITEP PARAMS 


1741 


01 1036 


000001 




.BLKW 1 


; .WORD START 


;ISH ENTRY ADDRESS 


1742 


01 1040 




TX.TEHM: 








1743 


01 1040 


000001 




. BLKB 1 


} .BYTE 000 


; TRANSMITER TERMINATING CHAR . 


1744 


01 1041 




RX .TERM: 








1745 


01 1041 


oooooi 




. BLKB 1 


t .BYTE e 012 


; RECEIVER TERMINATING CHAR. 


1746 














1747 


011042 


000001 


FLAG: 


.BLKW 






1748 


011044 


177570 


SWR: 


177570 






1749 


01 1046 


177570 


DISPLAY: 177570 






1750 


01 1050 


000001 


START: 


.BLKW 1 


jNOP 




1751 


011052 


000001 




.BLKW 1 


;NUF 




1752 


01 1054 


000001 




.BLKW 1 


»NOP 




175 3 


1 1056 


000001 




.BLKW 1 


;NOP 




1754 


01 1060 


000001 


cont.: 


.BLKtt 1 


jNOP 




1755 


01 1062 


000001 




.BLKW 1 


;NOP 




1756 


01 1064 


000001 




.BLKW 1 


I NOP 




1757 


01 1066 


000001 


FINI j 


.BLKW 1 


jMOV 1340* PS 


;LOCK OUT INTERUPTS. 


175b 


01 1070 


000001 




.BLKW 1 


jMOV IENTER,2(SP) 


;SET FOR RETURN IF S«14=0 


1759 


011072 


000001 




.BLKW 1 


;JSH PCSAVE05 


;U0 SAVE YOUR REGISTERS. 


1760 


011074 


000001 




.BLKW 1 


:RTS PC 


jEXIT 


1761 














1762 


01 1076 


000001 


ENTER: 


.BLKW 1 


;JSH PCREST05 


;G0 AND RESTORE REGISTERS 


1763 


01 1100 


000001 




.BLKW 1 


*, MOV 8-1, DELAY 


f INDICATE DELAY FOR TX. 


1764 


01 1102 


000001 




.BLKW 1 


jJMP CONT. jCONTINUE IN PROGRAM 


1765 




000001 




.END 







MAINDEC-1 1-DZITA-D 


INTERPROCESSOR TEST 


PROGRAM MACY11 27(10063 


DZITAL . 


PI I 01-DEC 


-76 11:00 




CROSS REFERENCE TABLE — 


ACCEPTS 


104406 


725 


1142 


1259 14341 1505 


ACR s 


040000 


15548 


1582 


1602 


ANYEX 


005024 


11441 






ANYMOH 


005014 


1142# 






ARIA 


003704 


922» 


9261 


935 


ASTRK 


001532 


702 


7781 




BA 


011004 


17278 






BEGIN 


003254 


657 


8178 


822 900 9b8 


BITO s 


000001 


6208 


955 


1497 1511 


BITOO » 


000001 


6105 


620 




B1T01 s 


000002 


609* 


619 




BIT02 = 


000004 


6081 


618 




B1T03 = 


000010 


6071 


617 




BIT04 s 


000020 


606» 


616 




BIT05 = 


000040 


6058 


615 




BIT06 = 


000100 


6048 


61 I 




BIT07 = 


000200 


6031 


613 




BIT08 s 


000400 


602« 


612 




HIT09 s 


001000 


6018 


611 




BIT1 » 


000002 


6198 


976 


1507 1511 


BIT10 a 


002000 


600# 






BITU = 


004000 


5991 






BIT12 = 


010000 


598# 






BIT13 = 


020000 


597* 


1159 




BIT1 4 s 


040000 


596S 


U19 




BIT15 a 


100000 


595# 


1207 




BIT2 a 


000004 


618$ 






BIT3 = 


000010 


617B 


708 


740 


BIT4 s 


000020 


6168 


712 




BITS a 


000040 


6158 


717 


728 


BIT6 ~ 


000100 


614# 






BIT7 s 


000200 


6139 






BITS s 


000400 


6128 






BIT9 a 


001000 


6113 






BPTVECs 


000014 


6276 






BUSY s 


000020 


1647 


17068 




B2016 


011030 


1076* 


17388 




CF a 


000100 


16969 






CLRIB 


004344 


10398 


1041 




CM a 


002000 


1646 


17008 




CONT. 


011060 


17541 






CRLF 


001536 


721 


736 


7791 986 1106 


CRQ a 


OOOOOI 


15591 


1570 




CS a 


004000 


1646 


16991 




CTLU 


010150 


1329 


15401 




CTS a 


000040 


1661 


16971 




CTSOK 


010556 


1662 


1672# 




CTSW 


010512 


16613 


1664 


1670 


DAT 


001564 


7938 


1018 




DIALNO 


010356 


1549 


1569 


16128 


DISPLA 


011046 


1528* 


17491 




DISPRE 


000174 


6521 


1528 




DLO s 


010000 


1555ft 






DH8 


010402 


842 


890 


891 16211 


UHBGO 


010422 


1088 


16410 




DMBTST 


003544 


886 


8891 
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SE8 0044 



DMCHK 


004574 




1 0161 






DHPHLT 


nit < inn 
00 1 400 


7001 


722 


735 


960 


UHPJjS r 


001 476 


726 


730* 


7608 


ON 


010160 


834 




885 


15439 


DNBA 


010164 


15441 


1564 






DNEX 


010354 


1603 


16101 






DNGO 


010200 


1 084 


15641 


1577 


1592 


DNI V 


010166 










DNL1 


010252 




1580 


1597 




DNLlE 


010300 


158 3 


15891 






DNL1X 


010312 


1572 




< HQ J ft 




DNL2 


010326 


15998 


1600 






DNPAR1 


010172 


1547 8 








DNPAR2 


010174 


1548 • 








DNPAR3 


010176 


15491 








DNPRI 


010170 


15461 








DONE a 


000200 


1579 


1581 


1599 


17038 


DP s 


000002 


1558 ft 


1595 






DPI 


003004 


794 




809 




DP2 


00307b 


795 


907 # 


810 




DP3 


0031 26 






811 




DP4 a 


002604 




ana* 






DPS ■ 


003004 










DP6 s 


003076 


799 


n. ?* 






DP7 a 


003126 


800 


8118 






DSS s 


000040 


1556S 








DTR s 


000002 


1650 


17131 






DUMP 


001 342 


718 


7268 






EMTAB 


005270 


1 165 


12158 






EMTVECs 


000030 


6308 








EMO 


005320 


1166 


1215 


1227 8 




EMI 


005333 


1216 


1227 8 






EMiO 


005565 


1223 


1227 8 






EMI 1 


005642 


1224 


12278 






EM12 


005667 


1225 


12278 






EM13 


00571 1 


1226 


1227 8 






EM2 


005343 


1217 


1227 8 






EM3 


005363 


1218 


1227 8 






EM4 


005407 


1219 


12278 






EM5 


005422 


1220 


12278 






EM6 


005446 


1221 








EM7 


005542 


1222 


1227 ft 






ENTER 


011076 










EOP 


0046 1 4 


10988 








ERRVECa 


000004 


62 3 f 








FINI 


011066 


17578 








FLAG 


011042 


700 
17478 


701* 


708* 


712* 


FLAGS 


001562 


7911 


823* 


837# 


843 


GETANY 


004776 


904 


907 


910 


915 


GETBA 


003602 


882 


888 


894 


9018 


GETCHRs 


104402 


703 


1254 


1291 


14308 


GETEX 


003746 


923 


933 


9428 




GETIC 


006002 


12545 


1263 


1267 




GETIT 


003464 


829 


8758 


944 




GETPRI 


003626 


9098 









716« 717« 726 740 95b* 976* 1497 1507 1511* 

887* 893* 1083 1086 1651 
920 11381 



MA1NDEC- 


•i l-DZITA-D 


INTERPROCESSOR TEST 


PROGRAM 


DZITAD.PH 01-DEC 


-76 1U00 




CROSS PI 


GETPRM 


003642 


9148 






GETP3 


003666 


913 


918 


9229 


GETSTRa 


104404 


880 


929 


1027 


GETVA 


003616 


9068 






G0T1C 


006040 


1257 


12648 




HLTX 


005262 


1208 


12118 




IBUF 


001604 


8038 


930 


931 


IE a 


000100 


17048 






ILB = 


000010 


16891 






IOTVECa 


000020 


6288 






IRCC 


011026 


17378 






XRDA 


011020 


962 


1029* 


1116 


ISR 


011000 


1094 


17268 




IV 


010410 


16238 






IXDA 


011022 


963 


1018* 


1033* 


KBDIN s 


104416 


1100 


1211 


14428 


LE a 


000001 


1650 


17148 




LF 


001537 


7808 


1269 


1317 


LINE m 


000017 


17078 






LSTAT a 


000002 


1661 


1665 


17109 


LI 


001374 


729 


731 


7349 


L2 


001426 


7438 


750 




L3 


001452 


741 


7538 




MANBA 


003404 


840 


845 


848 


MANIN 


003316 


8348 






MANINX 


003460 


862 


866 


8699 


MBA 


010406 


16228 


1642 




MFILL 


010155 


970 


15401 




MM a 


001000 


17019 






MODEA 


011034 


17408 






MSECS 


006334 


1046* 


1335* 


1337* 


MSGOO 


007152 


745 


755 


15409 


MSG01 


007154 


876 


15408 




MSG02 


007177 


897 


15401 




MSG03 


007222 


903 


15408 




MSG04 


007241 


906 


15408 




MSG05 


007263 


909 


15401 




MSG06 


007277 


914 


15401 




M5G07 


007314 


919 


15401 




MSG08 


007331 


924 


1540« 




M8G09 


007350 


977 


980 


15409 


MSG10 


007372 


1026 


13409 




M3GU 


007411 


1103 


15409 




MSG12 


007430 


1167 


15409 




MSG13 


007441 


1196 


15409 




MSG14 


007453 


1202 


15409 




MSG 15 


007462 


1452 


15409 




MSG16 


007505 


1455 


15409 




MSG17 


007551 


15408 






MSG18 


007564 


1468 


15409 




MSG19 


007570 


1068 


15409 




MSG20 


007616 


1493 


15409 




MSG21 


007637 


1015 


15408 




MSG22 


007663 


15409 


1653 




MSG23 


007767 


1178 


13409 




MSG24 


010003 


1185 


13409 





17348 
1110 



751 
8521 



1029 



17359 



USER SYMBOLS 



1038 
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SCQ 0043 



MS625 


010021 


1 460 


13409 






010060 


1109 


15409 




MSG27 


010106 


1115 


15409 




NEU 


010141 


1503 


15408 




N015P 


003570 


892 


896 9 




NOLC 


004422 


104 9 


10569 




N00 


004070 


959 


9661 




NOFTC 


004524 


105 2 


1063 


10719 


NULL 


001524 


685 


771S 




OCT 


006016 


1 2599 


1262 




OUT 


007040 


1 498 


15129 




OWI a 


000002 


1107 


16869 




OWO ® 


000001 


1113 


1655 


16859 


PABAM1 


011012 


17 301 






PARAM2 


011014 


17311 






PAKAM3 


011016 


17321 






PARA1 


010414 


1625 9 


1649 




PARA2 


010416 


16269 






PAPA3 


01 0420 


16279 






PND « 


000020 


ID 5 7 # 


1586 




PRIU 


010412 


16249 






PRIOR 


011010 


17299 






PRTYO » 


000000 


S85# 


1 063 


1075 


PRTY1 a 


000040 


5861 






PRTY2 a 


000100 


5879 






PRTY3 ® 


0001 40 


58BS 


1152 




PRTY4 b 


000200 


5899 






PPTY5 a 


000240 


5909 






PRTYb a 


000300 


591 g 






PRTY7 a 


000340 


sy2t 


819 


1514 


PWI a 


100000 


15539 


1571 


1582 


PWRVEC& 


000024 


6291 






QUES 


001 526 


720 


7778 


878 


REST 


004202 


979 


10109 




RE5THT 


00421 


1010 


10119 




RESVECs 


000010 


6249 






REX 


010556 


16749 






REX 1 


010614 


1656 


16819 




RI s 


100000 


16959 






RQTS a 


000004 


1659 


17129 




RSTART 


004102 


967 


9709 


1016 


RWAIT » 


104410 


1436 9 






RX.TER 


011041 


17449 






SE s 


000040 


1705* 






SETSW I a 


104 422 




1446 9 




SETTLE' 


011024 


1674* 


17369 




SRD ■ 


010000 


1698S 






STACK s 


001070 


5389 


818 


1074 


START 


01 1050 


17509 






STARTX 


010504 


16599 






STEP « 


000400 


17029 






STPS e 


104414 


819 


1065 


1075 


SUSWR s 


104420 


820 


14449 




SUTIME 


004354 


10469 






SUXCC 


004272 


1020 


1022 


10299 


5WEQ 


010131 


1500 


15401 





1314 



1124 



14409 1494 



MAINDEC-1 l-DZITA-D INTERPR0CES80R TEST PROGRAM MACY11 27(1006) Ol-DEC-76 1 1 1 01 

DZITAD.Pll Ol-DtC-76 UtOO CROSS REFERENCE TABLE — USER SYMBOLS 



PAGE 48 



SWPRNT 004116 



SWR 




011044 


SWREG 




000176 


SfoRNXT 


004316 


SWKSET 


004200 


SWO 


s 


000001 


SWOO 


s 


000001 


SW01 


s 


000002 


SW02 


s 


000004 


SW03 


s 


000010 


SW04 


s 


000020 


SW05 


S3 


000040 


SW06 


s 


000100 


SW07 


& 


000200 


SW08 


s 


000400 


SW09 


B 


001000 


swi 


s 


000002 


swio 


s 


002000 


SWI 1 


s 


004000 


SW12 


s 


010000 


SW13 


St 


020000 


SW14 


3 


040000 


SW15 




100000 


SW2 


s 


000004 


SWI 


a 


000010 


SW4 


& 


000020 


SW5 


s 


000040 


SW6 




000100 


SW7 


m 


000200 


SW8 


s 


000400 


5W9 


s 


001000 


TBITVEss 


000014 


TEMPI 




010|16 


TEMPI 




010&20 


TIME 




011032 


TIMER 




006312 


TIMEX 




006332 


TKB 




001516 


TKS 




001514 


TLB 


m 


000004 


TPB 




001522 


TPS 




001520 


TRAPVFn 


000034 


TRTVECss 


000014 


TRX 




005250 


TR3 




005226 


TTYINT 


003760 


TX.TER 


011040 


TYPE 


m 


104400 






011006 



658 
828 
1021 
17489 
6531 
1032 
850 
5849 
5749 
5739 
5729 
5719 
570S 
5699 
5689 
567S 
5669 
5659 
5839 
5649 
5639 
5629 
5619 
5608 
559# 
5829 
5819 
5800 
5799 
5789 
5779 
576# 
5759 
6259 
1675* 
1676$ 
1338» 

648 
1336 
7689 
7679 
16873 
693* 
691 
6318 
6261 
1160 
1195 

9481 
27421 
702 
909 
1103 
1196 
1455 
17281 



943 

837 
1031 


9749 

838 
1101 


834 
1119 


857 

1159 


860 
1207 


864 

1501 


868 
1504 


953 

1506* 


974 
1523 


984 
1527* 


1011 
1655 


1013 
1666 


953 


974 


1527 





















10349 
9929 

584 
583 
582 
581 
580 
579 
578 
577 
576 
575 



1677* 


l#839 














1679* 


16848 














1566* 


1567 


16430 


1663 


1669# 


17398 






1047 


1056 


1069 


13351 










13399 
















948 


983 


1239 


1509 










949» 


956# 


981 


1037* 


1237 


1499* 


1510* 




770S 
















7699 
















1171 


1191 


iaoi 


12071 










12001 
















1035 
















705 


720 


721 


736 


745 


755 


876 


877 


914 


919 


924 


925 


927 


970 


977 


980 


1106 


1109 


1111 


1115 


1117 


1140 


1162 


1166 


1202 


1203 


125S 


1269 


1294 


1314 


1315 


1317 


1460 


1468 


1493 


1500 


1503 


1653 







871 

986 
1167 
1329 



197 

1015 

1178 

1396 



903 906 

1026 1068 

1185 1190 

14281 iUZ 
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SEQ 0048 



VDB 


002604 


793 


8049 


808 


1028 


1033 


VIGO 




1087 


1094ft 








VISR 


mi onn 

U 1 i v U v 


847 


875 


877 


942 


17259 


WAITPO 


006624 


1453 


1457 9 








WORK 


001544 


723* 


725 
1506 


730 


782 


7849 






7859 










W0RK2 


001550 












WORK 3 


001552 


7871 












001 554 


7888 












001 556 


7899 










W0RK6 


001560 












XLB 8 


f\ rt A A /I A 


1655* 


16889 








XSWPN T 




975 


9809 








XWAI T ■ 


1 0441 2 












8 ACCEP 




12839 


1 433 








8 B20C T 


006336 


746 


1 180 


1187 


13639 




$B201 


006364 


1365 


13689 








8B201 6 


006 350 


7 38 


756 


985 


1076 


1 105 




001542 


706 


710 


714 


7839 


1239* 


SUUAun 


UU1 / » u 




11319 








8 ERTTL 




1 153* 


1 2289 








SHLT 
















005726 


1 155* 


1 156* 


1 163 


1 168 


12279 


shlot° 


UU3UJO 


11539 


1154 








olir AUK 






i *q7* 


1010* 






S0CNT 


006540 












S0MOPE 


006542 


1 363* 


i 367# 


1372 


1 375* 


1 386* 


8PASS 


004774 


821* 


1 090* 


1104 


11329 




SPWRDN 


006672 


639 


14809 


1491 






s pwpup 


006704 


1 480 


1 49 1 9 








8READC 


005732 


12359 


?? 








S READS 


005774 


12509 












0066 1 












^TR^P^ 


UUD344 




1 A1 A* 








STRPAD 


006564 


1420 


14279 










on l inn 


6749 


1427 










001544 




1259 


1 260 








UUOD<U 


1437* 










S0FILL 


006541 


1 364* 


1 366* 


1376 


14109 




a s 


01U04 


6359 


6389 


6479 


6519 


6559 






8*9 


844 


938 


973 


982 






1568 


1648 


1678 


1680 


17169 






17358 


17369 


17379 


1738* 


17399 






17539 


17549 


17559 


17569 


17579 


,KBDIN 


006732 


1441 


14979 








,RX 


001502 


762f 


962* 








.SETS* 


006750 


1445 


15009 








.STPS 


007042 


1439 


15149 








9 SUSWH 


007064 


1443 


15199 








.TX 


001504 


7631 


963* 









880 



1141* 1142 



1139 
1240* 



1169 
1241 



1198 
1255 



1204 
1261 



13669 
1265 



1458 
1266 



6609 
987 
17269 
17409 
17589 



6999 
1014 
17279 
17419 
17599 



7629 
1071 
17289 
17439 
17609 



7639 
1165* 
17299 
17459 
17629 



7819 
12279 
17309 
17479 
17639 



8039 
1238 
17319 
17509 
17649 



8059 
1319 
17329 
17519 



8079 
1482 
17349 
17529 
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DZITAD.P1 1 
BOX 



HELLO 
HLT 



6343 
1332 



696 
1448 



772 
1540 



814 
1561 



CROSS REFERENCE TABLE — MACRO NAMES 
988 1023 



825 
1616 



831 
1638 



872 
1717 



SEU 0049 
1243 



ABS. 011104 



ERRORS DETECTED J 

DEFAULT GLOBALS GENERATED: 

DSKZ:DZITAD,DZITAD/SOL/CRF/EN} AMAsDZlTAD.PU 

RUN-TIME: 9 14 1 SECONDS 
RUN-TIME RATIO: 107/25*4.1 
CORE USED: UK (21 PAGES) 



